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