|
▼トホホ さん:
こんにちは。
>実際にためさせていただきました。
>が・・・。あまりにも初心者のため、
>どの部分を書き換えると実データが使用できるか
>わかりません。
それは、私にもわかりません。だって、トホホ さんの実データがどんなものなのか
3000行のデータということ以外は情報がありませんから・・・。
>サンプルでは1から順に数字が並ぶのですが・・・。
サンプルデータはアクティブシートのセルA1〜O600というセル範囲のデータを
印刷することを考えていますから、このセル範囲に適当な数値を配置しました。
これを10ページで印刷することを例にあげました。
通常、これをこのままページ設定で「用紙サイズA4縦」で設定した場合、
10ページでは収まりませんよね。
これを
Call pr_settei(.Cells, 60)
というサブプロシジャーで 60行/1ページに収まるように縮小しています。
上記のコードを書き直せば、
Call pr_settei(range("a1:o600"),60)
としても同じです。
結果、60行が1ページの10ページ分の印刷データが
出来上がっていると思います。
まずは、これが、この結果がトホホ さんがなさりたいことなのか
サンプルコードから判断してください。
|
|