- Excel VBA 質問スレ Part34
135 ：デフォルトの名無しさん[sage]：2014/07/10(木) 20:16:55.64 ID:dz0pgHBR - Option Explicit
Dim PrinterName As String
Dim filename As String
Dim myshell As Object
Sub Macro1()
PrinterName = Application.ActivePrinter
filename = ファイル名.pdf
Set myshell = CreateObject("WScript.Shell")
myshell.Run ("AcroRd32.exe /t " & filename)
End Sub
印刷部数を指定したいのですが、どこに何を追加したらいいですか？
|