|
▼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
>--------------
>
>紙サイズは特注のものだと思いますのでマクロの記録などで用紙サイズを確認して指定してみてはどうでしょうか?
ありがとうございました。確認できました。お手数をおかけしました。
|
|