| タイトル | ： セール番号について |
| 記事No | ： 15760 |
| 投稿日 | ： 2013/07/20(Sat) 16:31 |
| 投稿者 | ： GC |
いつもお世話になっています
VBからエクセルの表に罫線を引き・印刷設定をし印刷する
というサンプルを参考にして、やっています。
例
< Dim xlRange As Excel.Range
<Set xlRange = xlSheet.Range("A1:F6")
< '表に罫線を引く 指定範囲に格子の罫線を引く
< xlRange.Borders.LineStyle = xlContinuous '実線
その中で、xlSheet.Range("A1:F6")という設定ですが
一ページの場合はいいですが、
２〜３ベージを印刷する場合、
例
xlSheet.Range("A60:F60") //第2ページ目
xlSheet.Range("A120:F120") //第3ページ目
…
何十ページを印刷する場合、最大印刷ページ数まで、設定すること
なんかいい方法があるのでしょうか。
"A1:F6"＝＞変数になる
例
ij="A1"
ik="F6"
というふうにできないでしょうか（エラーになる）
よろしくお願いします。
環境：ＶＢ６＋ＸＰ
|