Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46628 / 76735

←次へ　｜　前へ→


	【35075】印刷範囲設定について

Ｗｉｎ - 06/2/21(火) 0:44 -


	引用なし

	パスワード

初めまして。最近ＶＢＡを始めたばかりの初心者です。入門書やネットでなんとか大体できあがったのですが、最後の印刷でつまずいています。

ユーザーフォームのテキストボックスを使って通常の印刷コマンドのページ指定と同じような事をしたいのですが、プリントエリアを一括で選択する設定をしてしまうと改ページしたい行がずれてしまうので、ページごとに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
は可能でした。

３日ほど試行錯誤したんですがどうにもうまくいきません。全く違う方法でもっといい方法があるのかもしれませんが、この方法しか思いつきませんでした。何かいい方法があったら教えて下さい。宜しくお願いします。

0 hits

▼

【35075】印刷範囲設定について Ｗｉｎ 06/2/21(火) 0:44

≪