[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBA 印刷について』(miruku)
お世話になります
ご教授頂けたら幸いと考えております
お手数お掛けいたしますが
何卒 宜しくお願いいたします
Private Sub A4縦_Click()
With ActiveSheet.Range(Cells(Rows.Count, 1).End(xlUp), Cells(2, Columns.Count).End(xlToLeft))
.PageSetup.PaperSize = xlPaperA4
.PageSetup.Orientation = xlPortrait
.PrintOut Copies:=ComboBox1.Value
End With
Unload Me
End Sub
上記の様に組んでみますと
.PageSetup.PaperSize = xlPaperA4
上記構文で
483 オブジェクトエラーが出てしまいます
どの様に変えればいいのでしょうか
< 使用 Excel:Excel2010、使用 OS:Windows7 >
PageSetupプロパティはRangeオブジェクトのメンバーではなくWorksheetオブジェクトのメンバーのようだが。 PageSetupは With ActiveSheet 配下にしてはどうか。 (PrintOutは With ActiveSheet.Range(Cells(Rows.Count, 1).End(xlUp), Cells(2, Columns.Count).End(xlToLeft)) 配下のままで) (ねむねむ) 2017/10/19(木) 09:56
有難う御座います無事解決できました
Private Sub A4縦_Click()
With ActiveSheet
.PageSetup.PaperSize = xlPaperA4
.PageSetup.Orientation = xlPortrait
End With
With ActiveSheet.Range(Cells(Rows.Count, 1).End(xlUp), Cells(2, Columns.Count).End(xlToLeft))
.PrintOut Copies:=ComboBox1.Value
End With
Unload Me
End Sub
(miruku) 2017/10/19(木) 10:01
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.