Našel jsem makro od P. Lasaka, ale nějak mi to nefunguje. prosím o radu.
Děkuji
Kód: Vybrat vše
Sub tisk()
ActiveSheet.PrintOut From:=1, To:=100, Copise:=1, ActivePrinter:="ZDesigner GK420t na USB002", Collate:=True
End Sub
Kód: Vybrat vše
Sub tisk()
ActiveSheet.PrintOut From:=1, To:=100, Copise:=1, ActivePrinter:="ZDesigner GK420t na USB002", Collate:=True
End Sub
Run-time error 1004
Application -defined or object - defined error.
Kód: Vybrat vše
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Default = TRUE")
For Each objPrinter In colPrinters
strOldDefault = objPrinter.Name
strOldDefault = Replace(strOldDefault, "\", "\\")
Next
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'PDFCreator'")
For Each objPrinter In colPrinters
objPrinter.SetDefaultPrinter
Next
Application.Wait (Now + TimeValue("0:00:02"))
' Sem doplň příkaz k tisku
Set colPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & strOldDefault & "'")
For Each objPrinter In colPrinters
objPrinter.SetDefaultPrinter
Next
Set objWMIService = Nothing
Set colPrinters = Nothing
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 33 hostů