Excel VBA質問箱 IV

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

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


64885 / 76732 ←次へ | 前へ→

【16424】Re:改ページプレビュー
発言  shin  - 04/7/27(火) 15:38 -

引用なし
パスワード
   チャッピーさんありがとうございます。
お答えしていただいたことがよくわかっていません。

もうすこし具体的にご指導よろしくお願いします。

参考までに現在、具体的にプログラムは以下のようになっています。

Private Sub CommandButton2_Click()

Worksheets("見積書").Activate

'印刷範囲クリア

ActiveSheet.PageSetup.PrintArea = ""

ActiveSheet.PageSetup.PrintArea = "$A3:$s$27,$A$28:$s$52,$A$53:$s$77,$A$78:$s$102,$A$103:$s$127,$A$128:$s$152"

'行1,2はすべてのページに印刷する
  ActiveSheet.PageSetup. _
    PrintTitleRows = "$1:$2"
     
'印刷プレビュー表示
ActiveWindow.SelectedSheets.PrintPreview

End Sub

0 hits

【16420】改ページプレビュー shin 04/7/27(火) 14:35 質問
【16422】Re:改ページプレビュー ちゃっぴ 04/7/27(火) 14:58 発言
【16424】Re:改ページプレビュー shin 04/7/27(火) 15:38 発言
【16429】Re:改ページプレビュー IROC 04/7/27(火) 18:07 回答
【16433】Re:改ページプレビュー ちゃっぴ 04/7/27(火) 20:34 回答
【16439】Re:改ページプレビュー ichinose 04/7/27(火) 22:49 回答
【16449】Re:改ページプレビュー shin 04/7/28(水) 9:08 質問
【16452】Re:改ページプレビュー ちゃっぴ 04/7/28(水) 11:22 発言
【16458】Re:改ページプレビュー ichinose 04/7/28(水) 12:22 回答
【16478】Re:改ページプレビュー shin 04/7/28(水) 17:44 お礼

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