Excel VBA質問箱 IV

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

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


14547 / 76738 ←次へ | 前へ→

【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 質問
【67680】Re:連続用紙の用紙選択方法 yasu 10/12/24(金) 16:40 発言
【67682】Re:連続用紙の用紙選択方法 亜矢 10/12/24(金) 19:54 お礼

14547 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free