|
初めまして。最近VBAを始めたばかりの初心者です。入門書やネットでなんとか大体できあがったのですが、最後の印刷でつまずいています。
ユーザーフォームのテキストボックスを使って通常の印刷コマンドのページ指定と同じような事をしたいのですが、プリントエリアを一括で選択する設定をしてしまうと改ページしたい行がずれてしまうので、ページごとにarea1〜area10と名前をつけ、TextBox1に最初のページ数、TextBox2に最後のページ数を入力するようにしました。
たとえば、TextBox1=2 TextBox2=5の場合
印刷範囲はarea2:area5となるようにしたかったので、
Private Sub 印刷開始_Click()
Dim a As String
Dim b As String
a = "area" & TextBox1
b = "area" & TextBox2
Sheets("○○").Activate
ActiveSheet.PageSetup.PrintArea = "a:b"
End Sub
としてみたのですが、エラーになりました
ActiveSheet.PageSetup.PrintArea = "area" & TextBox1:"area" & TextBox2
にしてみても駄目でした。
ちなみに、単ページの設定
ActiveSheet.PageSetup.PrintArea = "area" & TextBox1
は可能でした。
3日ほど試行錯誤したんですがどうにもうまくいきません。全く違う方法でもっといい方法があるのかもしれませんが、この方法しか思いつきませんでした。何かいい方法があったら教えて下さい。宜しくお願いします。
|
|