printmacro, wat doe ik fout ?

[estate]

printmacro, printen naar printer en PDF printer in 1 macro

Ik wil met een macro een sheet afdrukken naar een printer én een PDF printer, warna het werkblad (factuur) word leeggemaakt en een nieuwe wordt gestart.

Als ik onderstaand code gebruik krijg ik een foutmelding:

Sub printen()
ActiveSheet.Unprotect Password:="******"
    Range("A1:G49").Select
    Application.ActivePrinter = "HP Deskjet"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.ActivePrinter = "Right PDF printer"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("G3") = Range("G3") + 1
    Range("G4:G5,A17:E40,J17:J40").ClearContents
    Range("G4").Select
    ActiveSheet.Protect Password:="******"
End Sub

Maar als ik dit gebruik gaat alles goed,

Sub printen()
ActiveSheet.Unprotect Password:="******"
    Range("A1:G49").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("G3") = Range("G3") + 1
    Range("G4:G5,A17:E40,J17:J40").ClearContents
    Range("G4").Select
    ActiveSheet.Protect Password:="******"
End Sub

Wat doe ik fout en wie kan me helpen ?

 

[Wigi]

Bestaan die 2 printers wel?

"HP Deskjet" en "Right PDF printer"

Komen de namen exact overeen?

 

[estate]

beide printers bestaan een ervan met een andere naam maar in de macro is dat ook goed, de foutopsporing stopt bij:

Application.ActivePrinter = "HP PSC 1500 series"

ik gebruik excel 2007, zou daar het probleem zitten ?

 

[Wigi]

En waar komt die

HP PSC 1500 series

vandaan? Is dat een 3de printer?

Waarom een andere naam gebruiken?

Wat geeft

MsgBox Application.ActivePrinter

als je dat uitvoert?

Wigi

 

[estate]

die HP psc 155 is de eerste printer, de PDF is de 2e printer, ben alleen vergeten voorbeeld hier aan te passen, sorry.

output van het venster is:

HP PSC 1500 series op Ne01:

 

[estate]

WiGi, bedankt, ik zie wat je bedoelde, heb de exacte output overgenomen en het werkt.