Excel VBA質問箱 IV

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

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


51628 / 76732 ←次へ | 前へ→

【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


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

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

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

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