FC2ブログ

印刷マクロまとめ

2017–05–25 (Thu) 11:00
Sub 印刷範囲を設定し一枚で印刷する()
Dim Insatsu_Cell As Range
Set Insatsu_Cell = Application.InputBox(Prompt:="印刷範囲を選択してください。", Type:=8)
ActiveSheet.PageSetup.PrintArea = Insatsu_Cell
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintOut
End Sub

印刷設定をするボックスが出てきます。
選択してOKを押すと自動で印刷できます。
凄く楽で重宝しています。

Sub 一括印刷
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
スポンサーサイト



« 最適化 | HOME |  違うところが一目で分かる条件付き書式 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク