Ｐａｇｅ 744 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼印刷時のページ設定の余白を調整 知美 03/2/14(金) 18:06 ┗Re:印刷時のページ設定の余白を調整 ichinose 03/2/14(金) 20:04 ┗Re:印刷時のページ設定の余白を調整 りん 03/2/15(土) 11:49 ─────────────────────────────────────── ■題名 ： 印刷時のページ設定の余白を調整 ■名前 ： 知美 ■日付 ： 03/2/14(金) 18:06 -------------------------------------------------------------------------
| 初めて投稿致します。宜しくお願いします。 印刷時にページ設定の余白を調整出来るマクロ記述方法が分からずに悩んで おります。 経緯ですが・・・ EXCELマクロを利用して、特定のディレクトリに存在する大量のEXCELシート を自動的に抽出して印刷するマクロを作成しました。 ところが、利用するプリンタのメーカ毎に用紙の印刷範囲（マージン）が異 なっている様で、某社１プリンタで１ページに収まっていたものが、某社２ プリンタで出力すると収まらなくなるという不具合現象が発生し・・うまく 印刷出来ません。プリンタを某社１プリンタに統一する事も考えていますが マクロ記述で解決出来ないかを考えております。 そこで、例えば、利用するプリンタ単位に、ページ設定の余白を再設定出来 れば・・とか考えているのですが、ＶＢＡでどう組み込めば良いのか？、御 教授をお願いします。 |
| ▼知美 さん： こんばんは。 >初めて投稿致します。宜しくお願いします。 > >印刷時にページ設定の余白を調整出来るマクロ記述方法が分からずに悩んで >おります。 >経緯ですが・・・ >EXCELマクロを利用して、特定のディレクトリに存在する大量のEXCELシート >を自動的に抽出して印刷するマクロを作成しました。 >ところが、利用するプリンタのメーカ毎に用紙の印刷範囲（マージン）が異 >なっている様で、某社１プリンタで１ページに収まっていたものが、某社２ >プリンタで出力すると収まらなくなるという不具合現象が発生し・・うまく >印刷出来ません。プリンタを某社１プリンタに統一する事も考えていますが >マクロ記述で解決出来ないかを考えております。 >そこで、例えば、利用するプリンタ単位に、ページ設定の余白を再設定出来 >れば・・とか考えているのですが、ＶＢＡでどう組み込めば良いのか？、御 >教授をお願いします。 こんな方法はどうでしょうか？ '=============================================== Sub test2() tmp = Application.Dialogs(xlDialogPrinterSetup).Show ' ↑プリンター選択のダイアログ if tmp=true then ' activeprinterは選択されたプリンターになっています ' 余白再設定設定 ' activesheet.printout 'たとえばです else 'キャンセル処理 end if End Sub 上記のダイアログだと実際の印刷はしません。印刷プレビューもみれませんので、 便利な面と不便な面はありますが・・・。 |
| 知美 さん、ichinose さん、こんにちわ。 >>ところが、利用するプリンタのメーカ毎に用紙の印刷範囲（マージン）が異 >>なっている様で、某社１プリンタで１ページに収まっていたものが、某社２ >>プリンタで出力すると収まらなくなるという不具合現象が発生し・・うまく >>印刷出来ません。プリンタを某社１プリンタに統一する事も考えていますが >>マクロ記述で解決出来ないかを考えております。 ドキレイダー（カラオケがあった）の某社は下マージンが1.5センチと広くなっているので、タックシールの一番下が使えなくてもったいないです。全面使用にすると印刷が保証されないとか警告がでますし。失敗することはあまりないですけどね。 >>そこで、例えば、利用するプリンタ単位に、ページ設定の余白を再設定出来 >>れば・・とか考えているのですが、ＶＢＡでどう組み込めば良いのか？、御 >>教授をお願いします。 ページが増えたら調整するという方向で組む方法もありますが、余白の大きさを0にしておいて、センタリングで対応するとかはいかがですか？ 印刷ズームを自動調整（たて１×よこ１）にして、ちょっとだけ縮小するとかね。 |