Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40968 / 76732 ←次へ | 前へ→

【40852】Re:ラベルの文字について
質問  hori  - 06/7/25(火) 10:56 -

引用なし
パスワード
   ▼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
以上です よろしくお願いします

0 hits

【40804】ラベルの文字について tk 06/7/24(月) 14:30 質問
【40820】Re:ラベルの文字について ichinose 06/7/24(月) 18:34 発言
【40852】Re:ラベルの文字について hori 06/7/25(火) 10:56 質問
【40854】Re:ラベルの文字について tk 06/7/25(火) 11:28 質問
【40873】Re:ラベルの文字について tk 06/7/25(火) 16:25 質問
【40893】Re:ラベルの文字について ichinose 06/7/25(火) 19:54 発言
【40896】Re:ラベルの文字について 追伸 ichinose 06/7/25(火) 20:21 発言
【40899】Re:ラベルの文字についての追伸2 ichinose 06/7/25(火) 21:44 発言
【40911】ラベルの文字について tk 06/7/26(水) 8:14 質問
【40908】Re:ラベルの文字について hori 06/7/26(水) 1:04 お礼
【40912】ラベルの文字について tk 06/7/26(水) 8:16 質問
【40927】Re:ラベルの文字について tk 06/7/26(水) 13:41 お礼

40968 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free