- 締切済み
Excel・VBAでのプリンタ指定
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- hallo-2007
- ベストアンサー率41% (888/2115)
NO1です。 ネットワーク上のプリンターでも関係ないと思います。 マクロの記録で試してもらうと良いと思います。 ご自身のパソコンインストールしたプリンターの名前で 切替できます。
- hallo-2007
- ベストアンサー率41% (888/2115)
一度、マクロの記録で試してみると良いと思います Application.ActivePrinter = "EPSON VP-930 ESC/P on LPT1:" こんな感じが作成されます。 以下は、マクロの記録で 印刷プレビュー、プリンターの切替 印刷 印刷プレビュー、通常のプリンターへ切替 を記録したものです。 Application.ActivePrinter = "EPSON VP-930 ESC/P on LPT1:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "EPSON VP-930 ESC/P on LPT1:", Collate:=True Application.ActivePrinter = "SHARP UX-MF25/50/60 Series (LAN) on Ne01:"
関連するQ&A
- Excel VBA プリンタ指定
Excel2000のVBAで、あるシート（aaa）の内容を [ボタンA]では通常使用するプリンタに印刷 下記のコードでうまく動きました If Worksheets("aaa").PrintOut = False Then GoTo DAME End If [ボタンB]では通常使用するプリンタでない ソースネクストの"いきなりPDF PRO2"(インストール済)を使用して c:\配下にPDFファイルを出力したいのですが、どのようなコードを 記述すれば良いのでしょうか？ os:xp pro です。
- ベストアンサー
- その他（プログラミング・開発）
- Excel でボタンひとつで登録したプリンタに出力する方法
１つのパソコンに複数のプリンタを接続しています。 １つのExcelファイルの中に複数のシートがあって、 それぞれ印刷に使用するプリンタが違うのですが、 毎回使用するプリンタを選びなおすのが、非常に 面倒に感じています。 上部のバーに、印刷ボタンがありますが、これを 複数設置して、それぞれのプリンタを登録しておき、 ボタンを押すだけで、登録しているプリンタで印刷 するような方法はありませんでしょうか？ マクロを使って、セル上に専用のボタンを作ると できるそうですが、私はマクロは組めないため、 そのようなマクロを公開しているサイトがありましたら、 そちらも教えていただけますと大変助かります。 毎日業務で使用するため、もう少し簡単にならないか と思っています。何卒よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBA
エクセル VBA コマンドボタン（印刷）をクリックするとSHeet1・SHeet2が ２つ印刷出来るような設定にしたいです。 普通は、SHeet1をコピーして Sheet２の画面を開いてコピーという手順を ボタン押すと、SHeet1・SHeet2が印刷されるようにしたいのですが・・・・ ちなみに印刷設定は出来ています。 このような ことはマクロで出来るのでしょうか？ 記述を教えて下さい！
- ベストアンサー
- その他MS Office製品
- プリンターの印刷されるまでの速度について
宜しくおねがいします。 印刷ボタンをクリックしてからプリンターの印刷がはじまるまでに １分ほどかかります。 もっと早くする方法はないでしょうか 社内にパソコンが３台ネットワークでつながっております。 仮に Ａ，Ｂ，Ｃ のパソコン ＡにＵＳＢ接続でインクジェットプリンターがつながっております。 このプリンターを共有しております。 Ａのパソコンで印刷した場合はすぐに印刷がはじまりますが Ｂ，Ｃ のパソコンからネットワーク経由でＡに接続されたプリンターをつかうと 印刷が始まるまでに１分ほどかかります。 アドバイスおまちしております。
- ベストアンサー
- プリンター・スキャナー
- エクセルVBAで、プリンタ名とプロパティを指定したい
Excel97を使用しています。 用紙サイズ：A4縦の書類を2ページ作成しました。書類は縦並びになっています。 これをエクセルVBAを使って、A4の用紙に両面印刷するか、A3横の用紙に割付印刷したいのですが方法はありますでしょうか？ エクセルのページ設定でA3横にして横並びで作成しようとしたのですが、行の高さがページ毎で異なっていますので、横並びでは作成できませんでした。 ワークシート上にボタンを作成しましたので、それをクリックするだけで、特定のプリンタ名を指定し、そのプリンタのプロパティで両面もしくは割付印刷を設定して印刷させたいのです。 ご存知の方、どうぞよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- ＶＢＡで指定したシートの指定したセルに
ＶＢＡで指定したシートの指定したセルに 何かを書き込む場合どうすればいいのでしょうか？ 例 Sheet1に配置されてあるボタンをクリックしたとき Sheet3のC1に"AAA"を書き込みたい。
- ベストアンサー
- Visual Basic
- エクセルマクロで印刷プリンタを指定する方法
表題のとおりなんですけと、エクセルのVBAでの印刷命令はできますが、複数あるプリンタから特定のプリンタを指定したいのですが、なにかいい方法ありませんか？
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ印刷時にプリンタを指定できますか？
エクセル２００２を使用しています。VBAはまったくわかりません。 マクロの自動登録で印刷を記録すると、通常使うプリンタから 出力されるようですが、LANでプリンタ複数使用可能な環境です ので、いちいち通常使うプリンタを変更するのではなく、マクロ 実行時にプリンタを選択したく思います。 因みに、以下のマクロはSheet1に値を入力し、Sheet1の値をコピー したSheet2を印刷するというマクロです。このマクロのどの部分に コードを付け加えればプリンタをこのマクロ実行時に選択可能でしょうか？ もしくはマクロではプリンタを選択できないのでしょうか？ どうぞよろしくお願いいたします。 ****************************************************************** Sub 印刷() Sheets("Sheet2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Sheet1").Select End Sub *******************************************************************
- ベストアンサー
- オフィス系ソフト
- ACCESSのＶＢＡでプリンタを指定したい
ACCESSでレポートを２つ作成し、フォームのボタンでレポートの印刷を行っています。 押されたボタンで、印刷するレポートが違うのですが、その時に、プリンタを指定したいのです。 Private Sub レポート印刷_Click() Dim stDocName As String stDocName = "レポート印刷" DoCmd.OpenReport stDocName, acNormal End Sub 上記のような感じで作っているのですが、それぞれのレポートで印刷するプリンタが違います。 どのようにしたらいいでしょうか？
- ベストアンサー
- その他(データベース)
- Excel2007のVBAでPreviewすると
初めまして。 Excel2007のVBAで困っていることがあり解決方法を探しています。 もともとExcel97で稼働していたマクロ＋VBA付きのシートをExcel2007で稼働させようとしています。 マクロ・VBAで作成されたシート(sheet2)をフォームに配置した印刷ボタンをユーザーに押してもらうことでプレビューを表示します。 印刷ボタンを押したときのプレビューのコード Worksheets("sheet2").PrintOut Copies:=1, Preview:=True でプレビュー画面を表示したところ、印刷ボタンや印刷設定ボタン等の上部にあるボタンが薄いグレーの配色で押せなくなりました。 調べた結果、ScreenUpdatingがfalseだと同じ状態になるとわかったので Application.ScreenUpdating = True Worksheets("sheet2").PrintOut Copies:=1, Preview:=True と書き換えましたが、不具合は解消されませんでした。 またブックを閉じずに、マクロを再起動させて同様の動作をおこなうと 何故かちゃんとボタンが押せるプレビューが表示します。 その状態のブックを保存して改めて開くと同じようにプレビューのボタンが押せなくなっています。 同じような現象で解決された方いらしたら解決方法を教えて頂ければありがたいです。 よろしくお願いいたします。
- 締切済み
- その他MS Office製品
お礼
ありがとうございます。 早速試してみたいと思います。 ちなみにネットワーク上のプリンタの場合はどうなるんでしょうか？