Printen via macro werkt spontaan niet meer

[djpeterl1]

Hallo,

Had een tijdje terug een macro opgenomen voor het afdrukken van een pagina:

Sub afdrukken_printer()
'
' afdrukken_printer Macro
'

'
    Application.ActivePrinter = "HP LaserJet P1005 op Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "HP LaserJet P1005 op Ne00:", Collate:=True
End Sub

Spontaan werkt het niet meer.

Krijg de melding:
Fout 1004 tijdens de uitvoering:
Methode ActivePrinter van object_Application is mislukt

kan iemand mij helpen het op te lossen?

Gr van Peter

 

[Ginger]

...ik zou zo op het eerste gezicht zeggen dat de printer niet meer aan de computer hangt... Nieuwe gekocht?

Groet, Leo

 

[Wigi]

Of op een andere poort dan Ne00:

 

[djpeterl1]

de printer is aan gesloten: direct afdrukken gaat goed

hoe kan ik controlleren op welke poort de printer zit??

 

[Ginger]

Voor zover ik me kan herinneren mag je gewoon de poort weglaten. In een engelse versie is het namelijk 'on' waar het in het nederlands 'op' is. Dus dit zou ook moeten werken...

Application.ActivePrinter = "HP LaserJet P1005"

Uiteraard óók aanpassen bij de 2e instantie!

Groet, Leo

 

[Warme bakkertje]

Info printerpoort zie bijlage

Mvg

Rudi

 

[snb]

Dit is voldoende

ThisWorkbook.Windows(1).SelectedSheets.PrintOut