|
▼ichinose さん:
横から失礼します
はじめましてhoriと申します。
今回のスレッドに興味をもち実行してみましたichinoseさんの
コードのまま実行すると動作しました。しかし
作業コードを記入したところ(印刷範囲設定)
コンパイルエラーloopに対するDoがありません
と出ました VBAは超初心者なので
対処の方法指導お願いします。
下記に書き込んだコードを記入します。
Private Sub CommandButton1_Click()
Call disp_open(Label1, "処理中しばらくお待ちください", 200)
d_flg = 1
Do While d_flg = 1
'本来の処理コード
Range("A1:G95").Select
Range("G95").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$95"
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$95"
With ActiveSheet.PageSetup
.RightHeader = "&""MS P明朝,標準""&9P-&P"
.CenterFooter = "&""MS P明朝,標準""&8株式会社"
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.PrintErrors = xlPrintErrorsDisplayed
Call disp_proc
DoEvents
Loop
Call disp_close
Label1.Caption = ""
End Sub
上記A4版縦の印刷範囲のコードの設定です
ちなみにA3の印刷の必要もあるので下記にコードを書きます
出来ればコマンドボタンでA4とA3のふたつボタンを作成して
出来るように考えています。
それと作業の終了時CommandButton2を
クリックするのではなく
MsgBox等で終了しましたなどの表示を
出せるようにできませんか
A3横設定
Private Sub CommandButton2_Click()
'
' 内訳印刷A3横 Macro
'
'
Range("A1:L95").Select
Range("L95").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$95"
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$95"
With ActiveSheet.PageSetup
.RightHeader = "&""MS P明朝,標準""&9P-&P"
.CenterFooter = "&""MS P明朝,標準""&8株式会社"
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.PrintErrors = xlPrintErrorsDisplayed
End With
Application.Goto Reference:="R1C1"
Hide
End Sub
以上です よろしくお願いします
|
|