vbaでユーザーフォームを使って印刷ボタン押すだけで、指定したセルの値から印刷開始ページ・印刷終了ページ・印刷枚数を自動取得して印刷出来たら便利だと思いませんか？セル番地に指定すれば簡単に設定完了しますよ。 VBAで印刷プレビューを表示するには、PrintPreviewメソッドを使用する方法と、PrintOutメソッドを使用する方法があります。PrintPreviewメソッドとPrintOutメソッドが使える対象オブジェクトは複数あります。ブック、シート、セル、それぞれにPrintPreviewメソッドとPrintOutメソッドが存在します。 VBAで初めて印刷プレビューやった時は焦りましたよね、動かなくなったから。ctrl+alt+deleteでエクセルの強制終了するしか方法がありません。フリーズしないように1行追加しておきましょう。 しかし、PrintPreviewメソッドでは、プレビューしたいページ数を指定することができません。 今回のVBAコードは印刷プレビューで確認してからExcelの指定したシートを印刷するマクロになります。尚、今回は引数を指定しています。 Sub sample() Sheets("Sheet1"). 前提・実現したいことExcel VBAにてフォーム上のボタンにActiveSheet.PrintPreviewを設定し、印刷プレビューを表示させると、プレビューがフォームの後ろに隠れ、さらにExcelが固まります。Me.Hideを使用して、フォームを非表示にして使用しようかとも思いましたが 印刷する前に、印刷プレビューや印刷ダイアログボックスを表示させると、必要な設定をし忘れたり、うっかり部数を間違えたりというようなミスがなくなり便利です。今回は、印刷プレビューや印刷ダイアログボックスを表示させるマクロを作ります。 VBA からエクセルシートの印刷プレビューと印刷を行うサンプルスクリプトです。非常に簡単で、それぞれ1行で記述できてしまいます。 ' 印刷プレビュー画面を出力する Me.PrintPreview ' 印刷プレビュー画面を出力することなく、直接印刷する Me.PrintOut

（この切替で、印刷プレビューで画面確認した内容と同じアウトプットが実際に プリンターから印刷されて出てくるようになる、といった仕組みです。） next >> ・自動集計マクロの基礎 ・最後の行まで自動集計する方法 ・自動印刷するマクロの作り方 (その1) 印刷プレビューで確認してからシートを印刷するサンプルコード . VBA からエクセルシートの印刷プレビューと印刷を行うサンプルスクリプトです。非常に簡単で、それぞれ1行で記述できてしまいます。 ' 印刷プレビュー画面を出力する Me.PrintPreview ' 印刷プレビュー画面を出力することなく、直接印刷する Me.PrintOut PrintOut メソッドの使用方法と使用例 PrintPreview メソッドの使用方法と使用例 ワークブックを印刷する・印刷プレビューを表示する ワークシートを印刷する・印刷プレビューを表示する セル範囲を印刷する・印刷プレビューを表示する excelで作成した表やvbaで作成したプログラム処理の実行結果の印刷する時など、印刷する機会は様々ありますが、実際にvbaで印刷する場合、シートの印刷・印刷範囲の選択・複数シートに跨った印刷方法など、指定する事により詳細に印刷する事が出来ます。 VBAを利用して印刷プレビューを表示するには、通常はサンプル1のようにPrintPreviewメソッドを利用します。 サンプル1 Sub Sample1() ActiveSheet.PrintPreview End Sub. 印刷する前に、印刷プレビューや印刷ダイアログボックスを表示させると、必要な設定をし忘れたり、うっかり部数を間違えたりというようなミスがなくなり便利です。今回は、印刷プレビューや印刷ダイアログボックスを表示させるマクロを作ります。 #625: 印刷ダイアログを表示してから印刷させるには？ レポート、vba: たとえば画面のあるボタンをクリックしたとき、レポートを「印刷プレビューする」あるいは「直ちにプリンタから印刷する」といった場合には、コントロールウィザードを使って簡単にそのボタンを作ることができます。 上記VBAコードで表示しているシートの印刷プレビューを表示できます。 ではこのVBAコードをユーザーフォームに配置したコマンドボタンに記述すると、通常はマクロ名の宣言部分 「Sub 印刷プレビュー()」を 「 Private Sub CommandButton1_Click() 」 に代えるだけなのですが・・・ PrintOut Preview:=True End Sub 実行結果.