Foutmelding bij

[jvandervliet]

Hallo,

Elders op dit forum heb ik de onderstaande code vandaan geplukt, en krijg de volgende foutmelding:

De Methode voor ActivePrinter van object _Application is mislukt.

Hoe kan ik dit oplossen?

Sub Printen()


Dim MyPrinter As String
'-----------------------------------------------------------------
'- get active printer
MyPrinter = Application.ActivePrinter
'-----------------------------------------------------------------
'- set another printer & print
Application.ActivePrinter = "DYMO LabelWriter 450 on USB001"
Application.ScreenUpdating = False
Worksheets("Formulier").Visible = xlSheetVisible
Worksheets("Formulier").PrintOut , PrintPreview = False
Worksheets("Formulier").Visible = xlSheetHidden
'-----------------------------------------------------------------
'- reset printer
Application.ActivePrinter = MyPrinter

End Sub


Alvast hartelijk dank!

 

[jvandervliet]

Al opgelost. Heb met

MsgBox "The name of the active printer is " & Application.ActivePrinter

De printernaam en -poort achterhaald.

 

[OctaFish]

Grappig dat je de CODE knop niet gebruikt voor je code, maar wél voor een tekstregel .