tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルセール番号について
記事No15760
投稿日: 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")という設定ですが
一ページの場合はいいですが、
2〜3ベージを印刷する場合、

xlSheet.Range("A60:F60") //第2ページ目
xlSheet.Range("A120:F120") //第3ページ目

何十ページを印刷する場合、最大印刷ページ数まで、設定すること
なんかいい方法があるのでしょうか。
"A1:F6"=>変数になる

ij="A1"
ik="F6" 
というふうにできないでしょうか(エラーになる)

よろしくお願いします。

環境:VB6+XP

[ツリー表示へ]
タイトルRe: セール番号について
記事No15761
投稿日: 2013/07/21(Sun) 08:14
投稿者VBレスキュー(花ちゃん)
> 例
> ij="A1"
> ik="F6" 
> というふうにできないでしょうか(エラーになる)

エラーになりませんが。

Dim ij As String, ik As String
ij = "A1"
ik = "F6"
xlSheet.Range(ij & ":" & ik).Clear

又は、

ij = "A1:F6"
xlSheet.Range(ij).Clear

又は、
http://www.hanatyan.sakura.ne.jp/patio/read.cgi?mode=view2&f=128&no=8

[ツリー表示へ]
タイトルRe^2: セール番号について  解決
記事No15762
投稿日: 2013/07/22(Mon) 09:26
投稿者GC
VBレスキュー(花ちゃん)さん、ご回答ありがとう。

<xlSheet.Range(ij & ":" & ik).Clear

解決しました。
ありがとうございました。

[ツリー表示へ]