Excel VBA質問箱 IV

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

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


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

2497 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

【67680】Re:連続用紙の用紙選択方法 yasu 10/12/24(金) 16:40

【67682】Re:連続用紙の用紙選択方法 亜矢 10/12/24(金) 19:54


	【67525】連続用紙の用紙選択方法

亜矢 - 10/12/10(金) 17:09 -


	引用なし

	パスワード

よろしくお願いします。
EpsonのVP100　ESC/P　ほか　２台のドットプリンターを使用しています。
それぞれ３から４種類の連続用紙を使用して印刷しているのが、VBAで
プリンタの設定と用紙の選択を行いたいと思います。
プリンターの指示は問題はありませんが、必要な用紙（３種類から４種類）を選択することは可能でしょうか。もし、可能ならその方法を教えていただきたいと思います。


	【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
--------------

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


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

亜矢 - 10/12/24(金) 19:54 -


	引用なし

	パスワード

▼yasu さん：
>▼亜矢さん：
>>プリンターの指示は問題はありません
>
>とあるので、以前もあげましたが、以下の内容で「.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
>--------------
>
>紙サイズは特注のものだと思いますのでマクロの記録などで用紙サイズを確認して指定してみてはどうでしょうか？
ありがとうございました。確認できました。お手数をおかけしました。


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

2497 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free