![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんな記述内容ではいかがでしょうか。
Sub Test()
With ActiveSheet.PageSetup
.PaperSize = xlPaperB5
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
ActiveSheet.PrintOut
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesTall = False
.FitToPagesWide = False
End With
End Sub
No.2
- 回答日時:
とりあえず全体を86%に縮小すれば大体のところは対応できるように思います。
マージンがプリンタの制限以下になる場合、支障が出るかも知れませんが。
Sub printB5()
Dim mg_L, mg_R, mg_T, mg_B, mg_H, mg_F As Single
mg_L = PageSetup.LeftMargin
mg_R = PageSetup.RightMargin
mg_T = PageSetup.TopMargin
mg_B = PageSetup.BottomMargin
mg_H = PageSetup.HeaderMargin
mg_F = PageSetup.FooterMargin
PageSetup.PaperSize = xlPaperB5
PageSetup.Zoom = 86
PageSetup.LeftMargin = mg_L * 0.86
PageSetup.RightMargin = mg_R * 0.86
PageSetup.TopMargin = mg_T * 0.86
PageSetup.BottomMargin = mg_B * 0.86
PageSetup.HeaderMargin = mg_H * 0.86
PageSetup.FooterMargin = mg_F * 0.86
ActiveWindow.SelectedSheets.PrintOut
PageSetup.PaperSize = xlPaperA4
PageSetup.Zoom = 100
PageSetup.LeftMargin = mg_L
PageSetup.RightMargin = mg_R
PageSetup.TopMargin = mg_T
PageSetup.BottomMargin = mg_B
PageSetup.HeaderMargin = mg_H
PageSetup.FooterMargin = mg_F
End Sub
No.1
- 回答日時:
縮小印刷はプリンタドライバの機能なので、VBAからは制御する事は出来ません。
印刷用紙の変更ならこんな感じでしょうか?
ActiveSheet.PageSetup.PaperSize = xlPaperB5
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PaperSize = xlPaperA4
この回答へのお礼
お礼日時:2008/06/02 16:35
早速有難うございました。そうか・・・。縮小印刷はプリンタの方の設定になるのですね。と言うことは、教えて頂いた記述の前に、印刷設定することは可能ですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- プリンタ・スキャナー ブラザー プリンターMFC-J4720N 2 2022/07/17 20:10
- その他(ソフトウェア) 写真の印刷レイアウトについて 13 2023/05/31 07:20
- Word(ワード) Wordでの印刷サイズについて A4の原稿をB5サイズで出力したいとき、 印刷から用紙サイズの指定か 4 2022/04/30 09:51
- HTML・CSS (Javascript)印刷するファイルに応じて印刷プレビュー画面で用紙を自動的に切り替えたい!! 2 2022/04/11 12:04
- Illustrator(イラストレーター) イラストレーターでの印刷について 3 2022/06/30 11:49
- その他(パソコン・周辺機器) Docuworks(ドキュワークス)の不具合について分かる方いたら教えてください。 ・A3やA4の異 1 2023/06/13 10:43
- Illustrator(イラストレーター) イラストレーターでA3用のサイズでポスターを作成しましたが、B5サイズに縮め変更したいです。しかしB 4 2022/07/19 20:30
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- プリンタ・スキャナー A4サイズの書類をA3サイズ2枚使用した大きさに印刷したい場合の設定を教え下さい。 4 2023/04/08 13:42
- Google Drive Google keepからGoogleドキュメントにコピーしたものをa4用紙1枚いっぱい(標準余白あ 2 2022/10/21 13:52
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
在庫管理表に使うエクセルの関...
-
下記マクロでMsgBox "空白です...
-
REGEXREPLACE関数について、
-
エクセルでバーコード作成し使...
-
【マクロ】for next構文について
-
ユーザー定義関数をアドイン登...
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
エクセルで表
-
PDFの請求明細をエクセルにしたい
-
エクセルの関数について教えて...
-
Excelデータをコピペして、ペー...
-
スプレッドシート、Excelでの数...
-
LOOKUP関数を使えばいいのでし...
-
Excel VBについての質問です。
-
【マクロ】 IFERROR関数をマク...
-
エクセル日付 文字列の関数がエ...
-
【マクロ】読取専用のファイル...
-
【マクロ】その時、その時で変...
-
時間によってファイル名が変わ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVBAでA4から...
-
またまた、物理の問題で質問で...
-
「MG V2ガンダム」は望め...
-
ミニ四駆のバックブレーダーに...
-
ハイゴッグのガンプラ
-
ガンプラ販売について。 ビック...
-
未組立のガンプラのABSの経年劣...
-
Mrカラーについて
-
プレバンのガンプラを転売して...
-
亡き連れはファーストガンダム...
-
ガンプラ女子の実態 中身がオッ...
-
要らなくなったガンプラは、捨...
-
お気に入りのガンプラを買うと...
-
エヴァ初号機カラー
-
スヌーピーのしっぽは白、黒ど...
-
こんにちは。ガンプラ大好き52...
-
大量に売れ残っていたガンプラ...
-
今おすすめのガンプラ過去にSD...
-
HGユニコーンガンダム(デストロ...
-
雀士について
おすすめ情報