VBAを使って印刷範囲の設定方法を教えてください

質問

VBA初心者です。
VBAを使用して、データの印刷範囲設定をしたいのですが、
以下の条件で設定する方法がわかりません。
教えてください。

　行：　データ全体を印刷範囲とする。
　列：　データがL列より少ない場合は、L列までを範囲として、
　　　　それ以上ある場合はデータ全体を印刷範囲とする。

回答No.1

hallo-2007

A列から何か入力されているものとして
質問の文書をVBAにすると

Sub ボタン1_Click()
If ActiveSheet.UsedRange.Columns.Count > 12 Then
Cells.Select
Else
Columns("A:L").Select
End If
Selection.PrintPreview
End Sub

なりますが
Sub ボタン1_Click()
ActiveSheet.UsedRange.Select
Selection.PrintPreview
End Sub
とか
Sub ボタン1_Click()
ActiveSheet.UsedRange.PrintPreview
End Sub

とかだけでも、ご希望のようになりませんでしょうか。