Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8987 / 13644 ツリー ←次へ | 前へ→

【29967】ネットワークプリンタ使用時の速度 ERIKO 05/10/17(月) 16:44 質問[未読]
【29974】Re:ネットワークプリンタ使用時の速度 とまと 05/10/17(月) 17:05 発言[未読]
【29980】Re:ネットワークプリンタ使用時の速度 ERIKO 05/10/17(月) 17:41 お礼[未読]

【29967】ネットワークプリンタ使用時の速度
質問  ERIKO E-MAIL  - 05/10/17(月) 16:44 -

引用なし
パスワード
   現在商品の納品書を作成中です。
シート:納品書にフォームを作って、

住所・名前・商品名などを入力
→印刷
→データクリア
→入力
→印刷

・・・という感じでつくっているのですが、ネットワーク接続のプリンタだと
恐ろしく時間が掛かるみたいなのです。
(30枚で4時間くらい)

  Sheets("納品書").Select
  ActiveSheet.PageSetup.PrintArea = "$A$1:$H$46"
  With ActiveSheet.PageSetup
    .PrintTitleRows = ""
    .PrintTitleColumns = ""
  End With
  ActiveSheet.PageSetup.PrintArea = "$A$1:$H$46"
  With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .LeftMargin = Application.InchesToPoints(0.787)
    .RightMargin = Application.InchesToPoints(0.787)
    .TopMargin = Application.InchesToPoints(0.984)
    .BottomMargin = Application.InchesToPoints(0.984)
    .HeaderMargin = Application.InchesToPoints(0.512)
    .FooterMargin = Application.InchesToPoints(0.512)
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlPortrait
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .PrintErrors = xlPrintErrorsDisplayed
  End With
    ActiveSheet.PrintOut


原因と解決方法をお願いいたします。

(初心者なので、できれば簡単な方法で・・・)

【29974】Re:ネットワークプリンタ使用時の速度
発言  とまと  - 05/10/17(月) 17:05 -

引用なし
パスワード
   こんにちは。

直接回答ではないですけど、納品書のフォーマット
は毎回決まっていると思うので最初にページ設定
を手動で済ませておいて、そこにデータだけ
もってくるようにすれば良いのではないでしょうか?

私も遅くなるためにマクロでページ設定は
行わないようにしています。ヘッダー部分で
可変で変更したいときがあるときは、上部
の余白を取らないで、セルに直接書き込んでいます。
記録を見た感じでは手動で設定できそうな
ないようですけど。

では。

【29980】Re:ネットワークプリンタ使用時の速度
お礼  ERIKO E-MAIL  - 05/10/17(月) 17:41 -

引用なし
パスワード
   ▼とまと さん:
ご回答ありがとうございます。


>直接回答ではないですけど、納品書のフォーマット
>は毎回決まっていると思うので最初にページ設定
>を手動で済ませておいて、そこにデータだけ
>もってくるようにすれば良いのではないでしょうか?


→ページ設定できそうです。
なるほどです。。。

>私も遅くなるためにマクロでページ設定は
>行わないようにしています。ヘッダー部分で
>可変で変更したいときがあるときは、上部
>の余白を取らないで、セルに直接書き込んでいます。
>記録を見た感じでは手動で設定できそうな
>ないようですけど。
>
>では。

→早速試してみたいと思います。
早くなればいいんですが。。
ありがとうございました。

8987 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free