Ｅｘｃeｌ2003 VBAで印刷 セル指定

質問

よろしくお願いします。
ボタン5をクリックしてある範囲を印刷したいのですが、私が知っているものはセル指定でActiveSheet.PageSetup.PrintArea = Range("A90:K130")
であれが印刷可能なのですが最後の行までにしたいのですがどうしてもうまくいきません。
ActiveSheet.PageSetup.PrintArea = Range(Cells(90, 1), Cells(r, 11))
それと同時に11列全部（文字は小さくてもいいのですが）一枚に印刷したのですが
よろしくお願いします。
Private Sub CommandButton5_Click()
res = MsgBox("決済記録を印刷します", vbYesNo + vbQuestion)
If res = vbYes Then
r = Range("A65536").End(xlUp).Row + 1
'Range(Cells(90,1),Cells(r,11)) '印刷したい範囲
ActiveSheet.PageSetup.PrintArea = Range("A90:K130")
ActiveSheet.PrintOut preview:=True
End If
End Sub

回答No.3

merlionXX · ベストアンサー

No2 merlionXXです。
ごめんなさい。やったつもりで一行抜けてました。

Private Sub CommandButton5_Click()
res = MsgBox("決済記録を印刷します", vbYesNo + vbQuestion)
If res = vbYes Then
r = Range("A65536").End(xlUp).Row + 1
myAd = Range(Cells(90, 1), Cells(r, 11)).Address '印刷したい範囲
With ActiveSheet.PageSetup
.PrintArea = myAd
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
End If
End Sub

でどうでしょう？

お礼

Zoom = Falseでは小さすぎました。
Zoom = 75か65が一番良かったです。
どうもありがとうございました。

回答No.2

merlionXX

Private Sub CommandButton5_Click()
res = MsgBox("決済記録を印刷します", vbYesNo + vbQuestion)
If res = vbYes Then
r = Range("A65536").End(xlUp).Row + 1
myAd = Range(Cells(90, 1), Cells(r, 11)).Address '印刷したい範囲
With ActiveSheet.PageSetup
.PrintArea = myAd
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
End If
End Sub

では？

補足

出来ました早速使わせてもらいます。
ありがとうございました。
＞それと同時に11列全部（文字は小さくてもいいのですが）一枚に印刷したのですが
これはできませんか？
よろしくお願いします。

回答No.1

takana_

ActiveSheet.PageSetup.PrintArea = Range("A90").CurrentRegion
とか？