- ベストアンサー
Excelでボタンひとつでプリンタに出力する方法
- Excelで複数のプリンタを使用する際に、毎回プリンタを選び直す手間を省く方法はあるのか？マクロを使う方法や公開されているサイトについて知りたい。
- Excelで複数のプリンタを登録しておき、ボタンを押すだけでプリンタに出力する方法があるか調査中。マクロが組めないため、他の方法を探している。
- Excelの印刷ボタンを複数設置し、それぞれのボタンで登録したプリンタに出力する方法を知りたい。マクロの使用方法や公開されているサイトについての情報があれば教えてほしい。
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
Excel2003を想定した回答です 1. ツール - マクロ - 新しいマクロの記録 [OK] 2. ファイル - 印刷 ▼対象のプリンタに合わせて [閉じる] 3. ツール - マクロ - 記録終了 4. シート見出しを右クリックして コードの表示 5. [Ctrl]+[R]プロジェクトエクスプローラから[標準モジュール] 6. Module1 をダブルクリックして Application.ActivePrinter = "iX5000 on Ne06:" のようになっている部分をコピー 7. Sheet1(Sheet1)に戻り、上の(General)⇒Worksheet その右の▼Activate Private Sub Worksheet_Activate() End Sub ができるので Private Sub Worksheet_Activate() Application.ActivePrinter = "iX5000 on Ne06:" End Sub とする 8. ほかの部分の削除と標準モジュール内のモジュールを開放する
その他の回答 (2)
- hallo-2007
- ベストアンサー率41% (888/2115)
使い方は違いますが、シートを選ぶたびに、プリンターの設定を変える方法です。 ＶＢエディターを起動したら、左にProjectがありシート名などあります。 その中の ThisWrokBook をクリックして Private Sub Workbook_SheetActivate(ByVal Sh As Object) Select Case ActiveSheet.Name Case "Sheet1"'シート名を入れます。 Application.ActivePrinter = "EPSON PM-G800 (M) on Ne01:" Case "Sheet2" Application.ActivePrinter = "Microsoft XPS Document Writer on Ne00:" End Select End Sub 貼り付けます。 プリンターの名前については、一度、マクロの記録を実行、 印刷、プリンターの変更、OK 印刷、プリンターの変更をプリンターの数だけ変更してみてください。 Application.ActivePrinter = "EPSON ・・・ といったコードが得られるとおもいますので、質問の意図に合わせて シート名と、プリンターの設定の行をコピィ、貼り付けして書き加えてみてください。
- ki-ro-ro
- ベストアンサー率49% (106/213)
一連の印刷工程を、マクロの記録で作ってしまうのが簡単かと思います。 記録した後は、シート上にボタンを配置しておくと便利です。 エクセルマクロ(VBA)自動記録 http://excel.onushi.com/macro/auto.htm マクロをボタンに登録 http://homepage1.nifty.com/tabotabo/insat/excelp/excelp09.htm 記録に失敗したら、マクロの解放をして、もう一度最初から記録しなおしてください。 モジュールの解放 http://www.geocities.jp/chiquilin_site/data/071220_removing_a_module.html
