エクセルの学校：全文検索：Hyper Estraier： VBA 強制終了

Results of 1 - 1 of about 85 for VBA 強制終了 (0.004 sec.)

vba (14717), 強制終了 (237)

[[20060927140643]]: #score: 16177; @digest: e63fa7be2ef8f9949a81e2fea0306347; @id: 25430; @mdate: 2006-09-28T06:51:24Z; @size: 1910; @type: text/plain; #keywords: myshell (24256), acrord32 (20029), printername (15670), printtest (15497), puremis (6309), タ名 (3981), バ名 (3889), activeprinter (3615), 数台 (3060), 身近 (2779), ン数 (2552), 事業 (1982), filename (1911), ブプ (1676), の省 (1658), 導下 (1488), プリ (1484), 業所 (1437), wscript (1419), ンタ (1387), 制終 (1204), 省略 (882), イバ (841), ン] (804), リン (755), で例 (741), 手動 (625), 強制 (597), 印刷 (541), 野鮎 (523), 川野 (499), 刷さ (496); 『エクセルにPDFを印刷させる』（さとし）
いつも参考にさせていただいております。たくさんあるPDFファイルの中からエクセル上で選んで印刷させたいのですが、 [[20060301095833]]『VBAでpdf』を参考にしています。 http://puremis.net/excel/code/083ja.shtml にプリンターを指定して印刷する方法があるのですが、どの事業所でも使用できるように、アクティブプリンターを取得させたいのです。 Sub PrintTest() PrinterName = Application.ActivePrinter FileName = "C:¥sample.pdf" Set myShell = CreateObject("WScript.Shell") myShell.Run ("AcroRd32.exe /t " & FileName & " " & PrinterName) End Sub とすると、リーダーが強制終了されてしまいます。どこを直せば動くようになるでしょうか。よろしくご指導下さい。 [エクセルのバージョン]Excel2003 [OSのバージョン]WindowsXP ---- 以下だけだとどうなりますか。 Sub PrintTest() PrinterName = Application.ActivePrinter Filename = "C:¥Sample.pdf" Set myShell = CreateObject("WScript.Shell") myShell.Run ("AcroRd32.exe /t " & Filename) End Sub プリンターは指定しなければ通常使うプリンターに出力されるはずなので、特にしてしなくてもいいはずです。（川野鮎太郎） ---- コメントありがとうございます。私と身近にあるパソコン数台ではドライバ名、ポート名の省略はできるのですが、プリンタ名を省略すると印刷してくれません。手動で例えば、"LP-****"と入れるとちゃんと出して貰えます。環境によるのでしょうか。できれば、全事業所で動く様に作りたいのでお願いいたします。（さとし） ---- >手動で例えば、"LP-****"と入れるとちゃんと出して貰えます。これは具体的にどのような書き方をされてますか。（川野鮎太郎） ---- コメントありがとうございます。すいません。言葉が足りなかったようです。具体的には、 myShell.Run ("AcroRd32.exe /t " & FileName & " " & "EPSON LP-8100") で動きました。先ほど以下の方法で、プリンタ名の省略ができました。 myShell.Run ("AcroRd32.exe /p /h " & FileName) お付き合い頂きありがとうございました。 (さとし) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060927140643.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ