• 締切済み

エクセル2000マクロシステムプリンターエラー

エクセル2000マクロで作っているシステムで 印刷をかけるとプリンタ上で51 スーパーファイン フカ というメッセージ がプリンターのパネルに表示される。 エラーランプを押すと出力される。 通常の別のエクセル2000でマクロ記録で印刷出力を作って動かすと 正常に出力される。 何が原因されるでしょうか。教えてください。 以上

noname#72697
noname#72697

みんなの回答

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

動作しないマクロにおいて、使用されているプリンタでは利用できない機能を 指定しようとしていることが原因であると思います。 正常動作するマクロのプリンタ制御の項目と、動作しないマクロのプリンタ制御の項目を 比較して見てください。 なにか「余分な」行が動作しないマクロにあるはずです。 その行を削除(コメント化)すれば動作するようになるでしょう。

noname#72697
質問者

補足

回答ありがとうございます。 ちなみにOSがWindows98上で動かすと印刷されます。 OSがWindows2000上で、エクセル2000で作ったシステムがエラー が表示されます。 別のエクセル2000で作ったシステムは、Windows2000上では 出力されます。

関連するQ&A

  • エクセルでプリンタ指定のマクロ

    エクセルのマクロで、プリンタ指定をするマクロを教えていただけ ないでしょうか。 マクロボタンを押したら、「印刷」ウインドウのプリンタ指定が できるところで止めたいのです。"新しいマクロの記録"でやっても、 当然上記の場所で"記録終了"ができません。 使い方は、様々な部署で同一のエクセルを処理した後、その部署の 環境によって、手差しやカセット、プリンタを選択したいためです。 マクロ初心者です。ご教授よろしくお願いいたします。

  • エクセルマクロ印刷時にプリンタを指定できますか?

    エクセル2002を使用しています。VBAはまったくわかりません。 マクロの自動登録で印刷を記録すると、通常使うプリンタから 出力されるようですが、LANでプリンタ複数使用可能な環境です ので、いちいち通常使うプリンタを変更するのではなく、マクロ 実行時にプリンタを選択したく思います。  因みに、以下のマクロはSheet1に値を入力し、Sheet1の値をコピー したSheet2を印刷するというマクロです。このマクロのどの部分に コードを付け加えればプリンタをこのマクロ実行時に選択可能でしょうか? もしくはマクロではプリンタを選択できないのでしょうか? どうぞよろしくお願いいたします。 ****************************************************************** Sub 印刷() Sheets("Sheet2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Sheet1").Select End Sub *******************************************************************

  • エクセルマクロ

    エクセルのマクロでプリンタのドライバーをFAXソフトに切り替えて、印刷(FAX)し、その後また通常のプリンターに切り替えて印刷することを中心としたマクロを動かすと、エクセルが強制終了の 状態になることがあります。 必ずなるわけではなくて、何事も無く終了できることもあります、ウィルススキャンのソフトを常駐させておくとマクロの動作が不安定になるとも聞いたのですが、そのようなことはあるのでしょうか? それとも他になにか原因があるのでしょうか・

  • マクロで印刷の途中でプリンタのメッセージが出ると止まってしまいます

    マクロで印刷の途中でプリンタのメッセージが出ると止まってしまいます Excel2007でベースのデータシートからフィルタで条件に合うデータを取り出し 同じファイルの印刷用としている別シートに貼り付けて罫線ページ計など体裁を整えて印刷 の処理をループで繰り返しています 通常は目的の処理が出来ていますが 印刷しているプリンタのインクが無くなった時などプリンタのメッセージが出ると メッセージを閉じても続きのマクロが実行されず止まってしまいます 止まってしまうとファイルを閉じる事もできなくなり 止む無く強制終了すると閉じた後VisualBasicの ここで終了することはできません というメッセージが出て閉じます 再度そのファイルを開くと前回の処理が終わったところで開きます プリンタからのメッセージが出るときだけに起きる現象なのですが 対処する方法がわかりません よろしくお願いします

  • エクセルマクロ?

    エクセルのマクロでFAXソフトをプリンタドライバとして選んで、FAXした後再び通常のプリンターを 選び印刷するというようにしたのですが、通常のプリンターを他のPC経由で印刷する形をとっており、 その際に、Application.ActivePrinter = "\\パソコンの番号\EPSON on Ne01:"というコードになっているの ですが、この場合のNe01というのは何を表しているのでしょうか? というのは、このNe以下の番号が突然変わりマクロが うまく動かなくなってしまいました。 これは、FAXソフトに起因するのものなのか? それとも、別の理由によるものなのか? 分りづらく申し訳ありませんが、どなたかよろしく お願いします。

  • AccessのマクロでExcelにエクスポートしたい

    レコード数が5万程度あるクエリを マクロでExcelにエクスポートしたいのですが、 「出力」を選ぶと、「出力する行が多すぎて、指定した出力形式またはMicrosoft Accessの制限を越えています。」のエラーメッセージが表示されてしまいます。 マクロではなく、普通にエクスポートする際は、 Excelのバージョンを選択できるので、正常処理できるのですが、マクロの場合はどうすればいいのでしょうか? 宜しくお願いします。

  • エクセルで印刷するプリンタを自動的に変更したい

    ネットワーク接続のプリンタが2台あります。 このうち片方のプリンタは、あるエクセルファイル専用出力にしたいのです。従いまして、当該エクセルファイルを印刷するときにだけ、自動的にそちらのプリンタから出力させるように制御したいのです。マクロか何かでそのような設定はできるのでしょうか。

  • エクセルマクロで教えてください。

    エクセルマクロで、プリンター出力で、困ることが多々発生しています。 どなたか対処法がわかりましたら教えてください。 下記のようにマクロを組んで、印刷させることをしていますが、 最後の「Ne01」がなぜかわからないのですが、よく勝手に変わってしまうのです。 S_PRINT = "RICOH imagio Neo 452 RPCS on Ne01:" とか、 Application.ActivePrinter = "EPSON PM-G4500 on Ne03:" とマクロを組んでます。 そのため、エラーとなったときに、マクロを開き、00から順番に02.03.などを入れ替えております。 エラーとならない方法はないでしょうか?

  • Excelのマクロについて

    Excelのマクロについて excel2003で,マクロの自動記録を勉強中です。 [ツール]-[マクロ]-[新しいマクロの記録]でマクロ名を入力し,(マクロの保存先を「作業中のブック」として,)[OK]をクリックすると マクロの記録が始まります。 マクロの記録終了後, [ツール]-[マクロ]-[マクロ]で「マクロ」ダイアログボックスを見ると,マクロ名が表示されます。 この場合は実行も正常にできます。 しかし, ブックを一旦保存した後,開いて,マクロを実行しようと, [ツール]-[マクロ]-[マクロ]で「マクロ」ダイアログボックスを見ると,マクロ名が(マクロ名単独ではなく)ブック名とともに表示されます。 実行するとエラーになります。 何が悪いのか分かりません。なにか基本的なミスがあるのかも知れないと考えました。 原因(ミス)に心当たりのあるかた,是非教えてください。

  • エクセルのマクロでのプリンタ自動切替について

    エクセルのマクロ初心者ですが、ご教示いただければ幸いです。 業務で日々使用する様式をボタン一つで印刷できるよう、マクロを作成中です。 エクセルのファイルは共有ファイルサーバーに保存していて、各端末(例:WS0001、WS0002、WS0003…)から印刷したいと考えています。 各端末の「通常使うプリンタ」はPR0001なのですが、この様式はWS0001のUSBポートに繋がったPR0002から出力する必要があります。 WS0001とWS0002他から見た場合にプリンタのパスが異なるため、現状では ActiveSheet.PrintOut ActivePrinter:="pr0002" ActiveSheet.PrintOut ActivePrinter:="\\Ws0001\pr0002" と2つのマクロを別々のボタンに割り当てていますが、ボタンを押し間違えることがあり、何とか1つのマクロにできないかと考えています。 例えば「"pr0002"が無い場合は"\\Ws0001\pr0002"から出力しなさい」といような記述は可能でしょうか? On Error でできるのかと考え、 On Error GoTo 0 ActiveSheet.PrintOut ActivePrinter:="pr0002" On Error GoTo 0 ActiveSheet.PrintOut ActivePrinter:="\\Ws0001\pr0002" あるいは On Error GoTo 0 ActiveSheet.PrintOut ActivePrinter:="pr0002" ActiveSheet.PrintOut ActivePrinter:="\\Ws0001\pr0002" と記述してみましたが、何故かPR0001とPR0002と2枚出力されて、上手くいきません。 ネットワーク上のプリンタ出力先の記述は、 Application.ActivePrinter = "\\Ws0001\pr0002 on NeXX:" ExecuteExcel4Macro _ "PRINT(1,,,1,,,,,,,,2,"""\\Ws0001\pr0002 on NeXX:"",,TRUE,,FALSE)" と記述した方が確実なようですが、端末によってXXの数字が異なるようで、エラーになることがあります。 何卒よろしくお願いいたします。

専門家に質問してみよう