画像クリックで拡大可能。レスのついた質問は削除しない。丸投げしない。
プリンタについて - 服部 真幸
2012/11/07 (Wed) 18:27:42
永井様
こんにちわ。 印刷マクロについてご教示下さい。
エクセル２００３を使用して印刷マクロを組んでいます。
使用プリンタ RICOH IPSiO SP 6210
同じプリンタを使用して手差し用とトレイ用のドライバを用意して手差しから不定形サイズの用紙を印刷して、続けてA4用紙をトレイから印刷しようとするとうまく作動しません。
症状としては手差しトレイにA4用紙を入れてくださいと表示されてしまいます。
プリンタの電源を切ってスプール表示してみたところ問題なく手差し用とトレイ用で別れてデータは飛んでいました。
宜しくお願い致します。
印刷マクロ
基点セル = "A1"
Set 領域 = ws2.Range(基点セル).CurrentRegion
行数 = 領域.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1 '★★
枚数 = Application.RoundUp(行数 / 20, 0)
With CreateObject("WScript.Network")
.SetDefaultPrinter "RICOH IPSiO SP 6210 RPCS (手差し用)"
End With
ws3.PrintOut
With CreateObject("WScript.Network")
.SetDefaultPrinter "RICOH IPSiO SP 6210 RPCS"
End With
ws4.PrintOut To:=枚数, Copies:=1
Re: プリンタについて - 永井善王 URL
2012/11/11 (Sun) 17:54:39
大変遅くなりました。回答を用意しましたので、下記ページでご覧下さい。
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9b747.html
Re: プリンタについて - 服部 真幸
2012/11/13 (Tue) 13:01:31
永井様
忙しい中ありがとうございます。
お陰様で無事うまく作動しました。
WSHで、WshNetworkオブジェクトの SetDefaultPrinterメソッドを使って「デフォルトプリンター」を設定しているのにはちょっとした訳がありまして。。。
会社で使用している為新しくプリンターの追加があると ｢Canon iP2600 series on Ne03:｣のon Ne○○の部分が変わってしまう現象に悩まされた結果Neを表示しないアクティブプリンタ変更方法に変更しました。
プリンタ―ドライバの設定ミスでon NE○○に一度は変更て動かなかったので同じ動きをすると思い違いしてしまいました。
今回はすごく勉強になりました。またよろしくお願い致します。
以下 動作マクロ
基点セル = "A1"
Set 領域 = ws2.Range(基点セル).CurrentRegion
行数 = 領域.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1 '★★
枚数 = Application.RoundUp(行数 / 20, 0)
'
Application.ActivePrinter = "RICOH IPSiO SP 6210 RPCS (手差し)on Ne○○:"
ws3.PrintOut
Application.ActivePrinter = "RICOH IPSiO SP 6210 RPCS on Ne○○:"
ws4.PrintOut To:=枚数, Copies:=1