[[20171019093910]]　『VBA　印刷について』（miruku）　ページの最後に飛ぶ

『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

コメント返信：

[ 一覧(最新更新順) ]

[[20171019093910]] 『VBA 印刷について』（miruku） ページの最後に飛ぶ

[[20171019093910]]　『VBA　印刷について』（miruku）　ページの最後に飛ぶ