![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつもお世話になっております。
ExcelのVBAで印刷ダイアログを表示させないようにするにはどのようなプロパティを設定すればよいでしょうか。
以下のようなコードを作成しました。
Sub ファイルの印刷()
Dim trgFolder As String
Dim buf As String
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
trgFolder = _
"C:\Documents and Settings\Name\My Documents\ファイル\"
buf = Dir(trgFolder & "*.xls")
Do While buf <> ""
Workbooks.Open trgFolder & buf
For Each sh In Worksheets
With ActiveSheet
.PageSetup.Zoom = 80
.PrintOut
End With
Next
Workbooks(buf).Close
buf = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
"ファイル"フォルダの各Excelファイルのすべてのシートを印刷するためのマクロです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは。
コードの中身は良く見ていませんが、
メニューの ファイル-印刷 などからは印刷できなくて、
マクロからのみ、印刷を出来るようにしたいということでしょうか?
そういうことだとして、
***** ThisWorkbook モジュール *****
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub
***** 標準モジュール *****
Sub 印刷()
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
End Sub
のような感じにすれば、手動で印刷しようとしても
印刷ダイアログは出ませんが、マクロからは印刷できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
Excel VBA 「印刷中」メッセージを非表示にしたい
その他(プログラミング・Web制作)
-
印刷ダイアログを表示させたくない
Visual Basic(VBA)
-
印刷中ダイアログについて
Access(アクセス)
-
-
4
EXCEL VBA 印刷プレビューダイアログのボタン操作を判定したい
Visual Basic(VBA)
-
5
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
10
印刷をキャンセル
Excel(エクセル)
-
11
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
12
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
13
エクセルを開くと、「プリンタの設定」という画面が表示されます。表示されないようにする方法を教えてください
Excel(エクセル)
-
14
ユーザーフォームのSetFocusが働かない?
その他(プログラミング・Web制作)
-
15
EXCEL VBA 印刷時にメッセージ表示
その他(Microsoft Office)
-
16
Access2000 サブフォームのRecordSet取得法
Access(アクセス)
-
17
レコード削除時に(サブ)フォームに表示される#Deleted"について"
Access(アクセス)
-
18
「プリンタの設定」ダイアログボックスのプリンタを指定したい。
その他(プログラミング・Web制作)
-
19
エクセルVBAで手差しトレイを指定させたい。
Excel(エクセル)
-
20
エクセルVBAでプリンタプロパティを操作したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで印刷の成功判定
-
PDFファイルを印刷し終了するには
-
vbaでPDFファイルが印刷されない
-
印刷ダイアログを表示させない方法
-
VB6からのエクセルの印刷品...
-
PHPでPDFファイルの直接印刷
-
Eclipseを使ってソースを印刷し...
-
サーバーで作成したPDFを直接印...
-
プリンタの印刷ジョブを削除し...
-
Excel VBA オブジェクトが必要...
-
VB.NETで罫線付きのデータを印...
-
VBからプリンタに出力する時に...
-
フォームを印刷するには
-
イベントプロシージャ 印刷が...
-
テキストファイル印刷 .net VB...
-
プリンターを指定して印刷するには
-
Accessフォームで全レコードを...
-
webページの印刷制限について
-
C++Builder5で画像データを用紙...
-
ActiveReportsを使って[印刷ダ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷要求順番と印刷出力順番が...
-
印刷ダイアログを表示させない方法
-
ActiveReportsを使って[印刷ダ...
-
印刷ダイアログを表示させたくない
-
プリンターを指定して印刷するには
-
PDFファイルを印刷し終了するには
-
vbaでPDFファイルが印刷されない
-
VBscriptでPDFファイルを直接印...
-
VBからのプリンタ制御について
-
ACCESSで設定した帳票の用紙サ...
-
イベントプロシージャ 印刷が...
-
VBSでExcelファイル印刷時のプ...
-
phpでの自動印刷
-
VBAにて指定したセルをプルダウ...
-
EXCELファイルの複数ダウンロー...
-
VBAで印刷スプール終了の判定を...
-
プリンタの印刷ジョブを削除し...
-
PHPでPDFファイルの直接印刷
-
A4の2枚をA3の1枚にする編集方法?
-
VBでExcel印刷する時のプリンタ...
おすすめ情報