Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14616 / 76807

←次へ　｜　前へ→


	【67680】Re:連続用紙の用紙選択方法

yasu - 10/12/24(金) 16:40 -


	引用なし

	パスワード

▼亜矢さん：
>プリンターの指示は問題はありません

とあるので、以前もあげましたが、以下の内容で「.PaperSize = xlPaperA4」の
紙のサイズを指定すれば行えると思いますよ。
--------------
Sub Macro1()
　　With ActiveSheet.PageSetup
　　　　.LeftHeader = ""　　　　　　　　　　　　　｝
　　　　.CenterHeader = ""　　　　　　　　　　　　｝
　　　　.RightHeader = ""　　　　　　　　　　　　｝ヘッダー＆フッター
　　　　.LeftFooter = ""　　　　　　　　　　　　　｝
　　　　.CenterFooter = ""　　　　　　　　　　　　｝
　　　　.RightFooter = ""　　　　　　　　　　　　｝
　　　　.LeftMargin = Application.InchesToPoints(0.787)　　　　｝
　　　　.RightMargin = Application.InchesToPoints(0.787)　　　｝
　　　　.TopMargin = Application.InchesToPoints(0.984)　　　　｝余白
　　　　.BottomMargin = Application.InchesToPoints(0.984)　　　｝
　　　　.HeaderMargin = Application.InchesToPoints(0.512)　　　｝
　　　　.FooterMargin = Application.InchesToPoints(0.512)　　　｝
　　　　.PrintHeadings = False　　　　　　　　　　　　　　←見出し
　　　　.PrintGridlines = False　　　　　　　　　　　　　←枠線
　　　　.PrintComments = xlPrintNoComments　　　　　　　　←印刷タイトル
　　　　.PrintQuality = 300　　　　　　　　　　　　　　　 ←印刷品質
　　　　.CenterHorizontally = False　　　　　　　　　　　←余白の水平
　　　　.CenterVertically = False　　　　　　　　　　　　←余白の垂直
　　　　.Orientation = xlPortrait　　　　　　　　　　　　←回転角度
　　　　.Draft = False　　　　　　　　　　　　　　　　　　←簡易印刷
　　　　.PaperSize = xlPaperA4　　　　　　　　　　　　　　←紙のサイズ指定
　　　　.FirstPageNumber = xlAutomatic　　　　　　　　　　←ページ番号
　　　　.Order = xlDownThenOver　　　　　　　　　　　　　←降順、昇順
　　　　.BlackAndWhite = False　　　　　　　　　　　　　　←白黒印刷
　　　　.Zoom = 100　　　　　　　　　　　　　　　　　　　←倍率
　　　　.PrintErrors = xlPrintErrorsDisplayed　　　　　　 ←セルのエラー
　　End With
　　ActiveWindow.SelectedSheets.PrintPreview
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True　　←印刷
End Sub
--------------

紙サイズは特注のものだと思いますのでマクロの記録などで用紙サイズを確認して指定してみてはどうでしょうか？

1 hits

▼

【67525】連続用紙の用紙選択方法 亜矢 10/12/10(金) 17:09