エクセルの学校：全文検索：Hyper Estraier： ExecuteExcel4Macro　閉じた｜開いて

Results of 1 - 1 of about 71 for ExecuteExcel4Macro　閉じた｜開いて｜開かず (0.012 sec.)

executeexcel4macro (140), 閉じた (629), 開いて (4904), 開かず (263)

[[20100308165241]]: #score: 14119; @digest: 3b69688794de229cf3a3f984c8af60ba; @id: 48194; @mdate: 2010-03-12T14:19:43Z; @size: 8721; @type: text/plain; #keywords: docuworks (70980), printer (68563), activeprinter (50620), タ切 (19180), 切換 (13578), printout (8459), pn (7422), 換() (7291), ク全 (6612), プリ (5440), 刷出 (5348), mmm (4470), ンタ (4389), sheet5 (3370), リン (3022), レビ (2770), ブロ (2669), 印刷 (2568), デフ (2438), ー画 (2398), ビュ (2361), ルト (2048), プレ (2037), （mm (2025), application (1984), トア (1960), ブシ (1881), sheet4 (1859), クテ (1538), activeworkbook (1427), ィブ (1412), 刷プ (1410); 『マクロで印刷先指定』（MMM）
マクロで印刷先のプリンタを選択していてもうまくそのプリンタに出力できません。そこまでの設定は無理なのでしょうか? よろしくお願いいたします。 ---- コード見てないのでなんとも言えませんが http://nofx2.txt-nifty.com/it/2009/04/vba-dbae.html ↑見る限り可能ですね。私もマクロの記録で試してみましたができました。別パソコンでできるかどうかは試していません。（通りすがり） ---- 回答ありがとうございます。ですが、会社PCのセキュリティが厳しくてブログ等のサイトはブロックされて残念ながら見れません。。。自宅に戻ってから見てみますね。（MMM） ---- 記録されたマクロ提示されてはいかがでしょう? ポート番号など見られて困るようであれば都度適当な値に置き換えればよろしいかと思います。（通りすがり） ---- Sub Macro1() ' ' Macro1 Macro ' ' Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Select Sheets("Sheet1").Activate Application.ActivePrinter = "DocuWorks Printer on Ne03:" ExecuteExcel4Macro _ "PRINT(1,,,1,,,,,,,,2,""DocuWorks Printer on Ne03:"",,,,FALSE)" End Sub このようになっています。誰がファイルを開いてもDocuWorks Printer に印刷されるようにしたいのですが通常使うプリンターのほうに印刷されてしまう人もいるんです。ご教授ください。（MMM） ---- お伺いしてみるのですが。。。これは、同じPCでの事でしょうか? それとも、違うPCでの事でしょうか? ファイルもPCも同じなのに、使う人によって上手く行く人と行かない人がいる。ファイルは一緒だが、違うPCの場合、上手く行くPCと行かないPCがある。 (HANA) ---- コメントありがとうございます。違うPCです。 [[20070302100911]] 『プリンター指定印刷』（ただの鬼）この方のを参考にしていて気付きましたが、ここが問題のようです。 "DocuWorks Printer on Ne03:" の『Ne03』にも『Ne02』にも印刷できるようにできないでしょうか? "DocuWorks Printer"含む（アスタリスク）も使えないんですねぇ。なんらかの入力をすればできる気がするのですがわかりません。。。よろしくお願いいたします。（MMM） ---- こんな感じで。。。? [[20090210105145]] 『リモートプリントのマクロ』（バディ）上手く行くと良いですが。。。 (HANA) ---- 私も同じようなことで悩んだことがあります。下記が参考になるかもです。 [[20070911131837]] 『ネットワークプリンタ』（純丸）（純丸）(o^-')b ---- HANAさん、純丸さん、ありがとうございます。ですが、知識不足のため応用できませんでしたf^_^; ちなみにセキュリティ厳しくてHPやブログはブロックされてあまり見れません。例文お願いできないでしょうか? よろしくお願いします。（MMM） ---- う〜ん、試せないので試してみて貰いたいのですが。。。 ↓じゃ駄目? '------ Sub プリンタ切換() Dim pn As String pn = Application.ActivePrinter ActiveSheet.PrintOut , ActivePrinter:="DocuWorks Printer" Application.ActivePrinter = pn End Sub '------ (HANA) ---- できましたー!! でも…全シート選択していたのが外れてしまうんですけどなぜでしょうか??? たびたびすみません。。。（MMM） ---- アーアクティブシートじゃないとポート指定しなくちゃいけないとか書いてありましたねぇ…。一個ずつアクティブにして印刷する必要があるかもです。 sub プリンタ切換() dim pn as string pn = application.activeprinter for each sh in worksheet sh.activate activesheet.printout ,activeprinter:="DocuWorks Printer" application.activeprinter = pn next end sub でいいのかな・・・（通りすがり） ---- うー。。。実行時エラー'13': 型が一致しません。というエラーが出てしまいました。。。一個ずつアクティブにしてマクロを組んだらいいということですか? （MMM） ---- sub プリンタ切換() dim pn as string pn = application.activeprinter for each sh in worksheets sh.activate activesheet.printout ,activeprinter:="DocuWorks Printer" application.activeprinter = pn next end sub あ sつけ忘れてた今度はどうでしょう?? （通りすがり） ---- 1枚目だけアクティブにすればよくないですか? 通りすがりさんのコードをお借りして、 Sub プリンタ切換() Dim pn As String Dim sh As Worksheet Dim flg As Integer pn = Application.ActivePrinter flg = 1 For Each sh In Worksheets If flg = 1 Then sh.Activate ActiveSheet.PrintOut ActivePrinter:="DocuWorks Printer" flg = 0 Else sh.PrintOut End If Next Application.ActivePrinter = pn End Sub （純丸）(o^-')b ---- ありがとうございます!でました!! ちなみに、プレビュー画面で止めることはできないでしょうか? 次から次にすみません。。。（MMM） ---- ＞全シート選択していたのが外れてしまうんですけど＞なぜでしょうか??? えっと。。。。 ActiveSheet.PrintOut , ActivePrinter:="DocuWorks Printer" ‾‾‾‾‾‾‾‾‾‾‾ アクティブシートをプリントアウトって成っているからでしょうね。タブン ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:="DocuWorks Printer" 選択シートを‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾プリントアウトにすれば、選択解除はされないんじゃないかと思いますが選択しなくても動きそうですか? '------ Sub プレビューも() Dim pn As String, prs As Object Set prs = Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")) pn = Application.ActivePrinter prs.PrintOut Preview:=True, ActivePrinter:="DocuWorks Printer" Application.ActivePrinter = pn Set prs = Nothing End Sub '------ ちなみに、ブック全体（全部のシート）を印刷すれば良いなら ActiveWorkbook.PrintOut 〜で良いかなぁ。。。一寸やってみてください。 (HANA) ---- ご教授ありがとうございます。レス遅くてすみません。。。 ActiveWorkbook.PrintOut はどこに置き換えれるんですか? ちなみ新たな要求が… プレビュー画面で止まってプリンター"DocuWorks Printer"か"Printer S"か選択して印刷はできないでしょうか? 皆さんからのご教授の結果、今こうなってます。 Sub Macro3() ' ' Macro3 Macro ' ' Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Select Sheets("Sheet1").Activate 'デフォルトのブリンターを取得 defo_printer = CreateObject("Excel.Application").ActivePrinter '印刷プレビュー Dim pn As String, prs As Object Set prs = Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")) pn = Application.ActivePrinter prs.PrintOut Preview:=True, ActivePrinter:="DocuWorks Printer" Application.ActivePrinter = pn 'プリンターをデフォルトに戻す Application.ActivePrinter = defo_printer 'シートの選択を解除 Sheets("Sheet1").Select End Sub お願いします。（MMM） ---- 失礼ですが、私が載せたコードの意味の理解に勤めてい頂いていますか? また、私が書いている事を理解しようと努力して頂けていますか? ＞＞ActiveSheet.PrintOut , ActivePrinter:="DocuWorks Printer" ＞＞‾‾‾‾‾‾‾‾‾‾‾ アクティブシートをプリントアウト＞＞ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:="DocuWorks Printer" ＞＞選択シートを‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾プリントアウトと書いた後に＞＞ちなみに、ブック全体（全部のシート）を印刷すれば良いなら＞＞ ActiveWorkbook.PrintOut 〜＞＞で良いかなぁ。。。と書いているのに、＞ActiveWorkbook.PrintOut ＞はどこに置き換えれるんですか? と言う御質問は「本当に読んでもらえてるのかな?」と思います。また、＞'デフォルトのブリンターを取得＞ defo_printer = CreateObject("Excel.Application").ActivePrinter 変数 = ・・・.ActivePrinter と言う記述でデフォルトのプリンタを取得すると分かっている（書いてある?）のにその下に＞pn = Application.ActivePrinter が残してあるのも「ちゃんと見てるのかな?」と思ってしまいます。それぞれ何処が違うのか、見比べてもらっていますか? それに最後に載せたコードは・選択しなくても動きそうですか? →以下の様に書けば .Select が不要・プレビューも →以下の様に書けばプレビューされると言うつもりのコードですが＞皆さんからのご教授の結果、今こうなってます。のコードにしないと目的の事が出来ませんか? 当初のコードは Sheet1〜Sheet5 を印刷するコードだったと思いますが実際はブック全体が印刷出来れば良いのですか? それとも、今回のコードとは別に、ブック全体を印刷するコードも知っておきたいと言う事での質問でしょうか? いずれにしても、これに関してはマクロの記録を試して見て下さい。印刷設定の中にブック全体が印刷出来る設定が有ります。また、その時にプリンタを切り替える。印刷プレビューもしてみる。と、今回のコードの作成に非常に有用なコードが得られると思います。それから＞プリンター"DocuWorks Printer"か"Printer S"か選択して印刷に関しては、どう言った理由でその様な事が必要なのでしょう? 例えば、・片方のプリンタにしか出力出来ないPCがある・使用者に近いプリンタから印刷出来ると便利・その時の気分（他の人が使っていない方とか）で使用プリンタをその都度決めたい等。。。? (HANA) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201003/20100308165241.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ