![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
アクセスです。
フォームのコマンドボタンをクリックしてレポートを開きます。
VBAコードは
Private Sub コマンド0_Click()
DoCmd.OpenReport "レポート1"
End Sub
です。
レポートが開いたら、自動で印刷されますが、
それは、通常使うプリンタに設定しているプリンタで印刷されてしまいます。
そうではなく、
Bullzip PDF PrinterでPDF化させたいのですが、
レポートのイベントで、
Private Sub Report_Open(Cancel As Integer)
End Sub
で、プリンタを指定することは可能でしょうか?
通常使うプリンタは
Bullzip PDF Printerにはしたくないのです。
わがまま言ってごめんなさい。
![「プリンターを指定して印刷するには」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/6/28266711_5497d2ee08420/M.jpg)
No.1ベストアンサー
- 回答日時:
いくつか方法が有るかと思いますが
その内のApplication(Access)レベルで一時的に変更する例です。
扱いやすいようにアレンジしてみてください。
Sub Bullzipで印刷()
Dim Prnt As Printer
Dim PrntDefo As String '既定のプリンタ名
'現在のプリンタ名をセット
PrntDefo = Application.Printer.DeviceName
'用意されているプリンタ一覧をイミディエイトウィンドウに出力し確認
For Each Prnt In Application.Printers
Debug.Print Prnt.DeviceName
Next
Application.Printer = Printers("上記の中から名前を此処に、Bullzip PDF Printerかな?")
'印刷処理をここへ
'元に戻す
Application.Printer = Printers(PrntDefo)
End Sub
詳しくはこちらをどうぞ
Microsoft Access 2002 でのプリンタ設定のプログラミング
http://msdn.microsoft.com/ja-jp/library/cc325884 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- プリンタ・スキャナー 2台のプリンターでそれぞれ異なる様式の帳票を印刷したい。 2 2022/09/06 10:07
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- プリンタ・スキャナー 印刷 キャンセル&印刷できない 2 2022/11/29 16:45
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- プリンタ・スキャナー エプソンのプリンタEP-879AWを使っていますが印刷文字がぼやけます。 家電量販店で写真印刷がメイ 4 2022/03/26 23:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access サブフォームでの選択行の取得
その他(データベース)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
-
4
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
5
accessでプリンタを切り替えるには?
その他(データベース)
-
6
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
7
ACCESS フォームをそのまま印刷について
その他(データベース)
-
8
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
9
VBAによる用紙サイズ変更(PrtDevMode)
Excel(エクセル)
-
10
Accessでのプリンター給紙トレイの指定
その他(データベース)
-
11
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
12
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
13
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
14
ACCESSで印刷プレビューをした後の印刷ボタンを押したイベント取得につて
その他(プログラミング・Web制作)
-
15
Accessでブレークポイントを設定してないのに一時停止してしまう
その他(データベース)
-
16
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
17
ACCESSフォーム入力後の確定
Access(アクセス)
-
18
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
19
access2003 レポートごとにプリンター指定
その他(Microsoft Office)
-
20
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プリンターエラーの判定
-
フォームを印刷するには
-
B4で手差しトレイから印刷(V...
-
A4の2枚をA3の1枚にする編集方法?
-
JavaでPDF作成
-
VBAでエクセルからワードへの差...
-
vba 時間の引き算 例えば 15:00...
-
VB6で作成したアプリをパッケー...
-
htmlからcgiを自動的に起動させ...
-
WinSCPで画像のように puttyを...
-
ミキサーの情報の取得方法を教えて
-
VBSで起動したアプリが前面表示...
-
Excel-VBAでDSOFile.dll使える?
-
C++初心者です。 debug asserti...
-
DLLを作成してVBAから使用する...
-
「読み込み違反」が起きたとき...
-
Windows PowerShellでC言語を実...
-
androidで.exeを実行できますか?
-
[VB.net] ExcelへのQRコード出...
-
VB6で作成したアプリを配布する...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
プリンターを指定して印刷するには
-
vbaでPDFファイルが印刷されない
-
VBAで印刷スプール終了の判定を...
-
PDFファイルを印刷し終了するには
-
VBからプリンタに出力する時に...
-
ACCESSで設定した帳票の用紙サ...
-
印刷ダイアログを表示させたくない
-
VBscriptでPDFファイルを直接印...
-
ActiveReportsを使って[印刷ダ...
-
VBAで印刷の成功判定
-
Accessフォームで全レコードを...
-
VB.NET+ActiveReports で印刷...
-
A4の2枚をA3の1枚にする編集方法?
-
Eclipseを使ってソースを印刷し...
-
EXCELファイルの複数ダウンロー...
-
VBAにて指定したセルをプルダウ...
-
VBでExcel印刷する時のプリンタ...
-
Javaから直接プリンターへ印刷...
おすすめ情報