ＶＢからエクセルの印刷機能で印刷するには？
ＶＢ6から、エクセルにデータを送信したのち印刷をするのですが、（エクセルは先に作成した既存のひな型を使用します。）データ数が、ひな型で作成してある行より多い場合は、同じひな型を改ページして作成したいのですが
どなたか教えてください。
簡単に思いつく方法として
全データ数とひな型に入るデータ数が分かっている場合
全データ数¥ひな型に入るデータ数＋IIF(全データ数 MOD ひな型に入るデータ数,1,0)
回数分だけエクセルにデータをセットしては印刷を繰り返すとか
早速の回答ありがとうございます。助かります。
そうした場合、後でエクセル出力で保存できるように拡張も考えているのですが・・ひとつのシートに連なる形で保存できるでしょうか？
今、現在・・エクセルを起動、印刷するプロシージャーとエクセルにデータを送信するプロシージャーがあるのですが、その形からだとどのようにしたらいいのか、詳しくおしえていただけたらありがたいです
説明がわかりづらくてすみません。
最初のシートを必要なページ分だけコピーすれば良いだけでしたね。
シートの複製はマクロを起動して記録してみてください。
エクセル関連ではマクロを使って記録すると大抵の操作はそれを
参考にVBからも操作できるようになりますよ。
マクロでやってもみたのですが、なかなかうまくいかなかったんです・・。
Set xlsSeet=xlsbook.ActiveSeet(途中は省略してます)で起動している
xlsSeet.Range("A1:H1").Selectなどはエラーになって、エラー処理のxlsSeet=Nothingにとんでしまいます。また、貼り付けるセルの指定は行番号をダイレクトに指定するしかないのでしょうか？
（例）
○○○××→表題
×× →条件など
××
------------------------------------------------
表（データをセットする部分）
-----------------------------------------------------
-----------------------------------------------------
-----------------------------------------------------
という形です。
このひな型を改ページしても繰り返したいのですが・・・
解決しました。
ありがとうございました。
| ツイート |  |