Hallo,
ik durf geen nieuwe thread aan te maken, omdat ik hier en daar soortgelijke vraagstelling zie staan, maar uiteindelijk dekken de antwoorden niet de gehele lading.
Ik heb een probleem dat ik vanuit Excel een printopdracht uitstuur naar een labelprinter alleen zet ik via mijn macro de labelprinter als standaard voor het document. Als de gebruiker vanaf een andere tab wil printen (na een printactie met de labelprinter) dan wordt opnieuw de labelprinter aangesproken i.p.v. de default printer met A4 papier.
Dit is de code:
Dit heb ik gewijzigd naar: (bedankt voor het bestand 'helpmij printer poort activeprinter'!!)
Door toepassing van activewindow hoef ik geen gebruik te maken van de tabnaam "labels zebra"? Ik denk dat de code werkt, want de standaard printer is gewoon zichtbaar bij de andere tabs na een printactie met de labelprinter (de labelprinter staat op mn werk en test dit nu thuis).
Zie ik iets over het hoofd? Bedankt alvast!
ik durf geen nieuwe thread aan te maken, omdat ik hier en daar soortgelijke vraagstelling zie staan, maar uiteindelijk dekken de antwoorden niet de gehele lading.
Ik heb een probleem dat ik vanuit Excel een printopdracht uitstuur naar een labelprinter alleen zet ik via mijn macro de labelprinter als standaard voor het document. Als de gebruiker vanaf een andere tab wil printen (na een printactie met de labelprinter) dan wordt opnieuw de labelprinter aangesproken i.p.v. de default printer met A4 papier.
Dit is de code:
Code:
Sub ZD620_2()
Worksheets("labels Zebra").PrintOut _
from:=1, _
to:=2, _
Copies:=1, _
ActivePrinter:="ZDesigner ZD620-203dpi ZPL"
End Sub
Dit heb ik gewijzigd naar: (bedankt voor het bestand 'helpmij printer poort activeprinter'!!)
Code:
Sub ZD620_1()
Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter ' stores the current active (default) printer
Application.ActivePrinter = "ZDesigner ZD620-203dpi ZPL op Ne02:" ' change what is in quotes as per appropriate printer name in the Print Dialog Box
ActiveWindow.SelectedSheets.PrintOut from:=1, to:=2, Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Application.ActivePrinter = strCurrentPrinter 'Returns printer output to your default printer
End Sub
Door toepassing van activewindow hoef ik geen gebruik te maken van de tabnaam "labels zebra"? Ik denk dat de code werkt, want de standaard printer is gewoon zichtbaar bij de andere tabs na een printactie met de labelprinter (de labelprinter staat op mn werk en test dit nu thuis).
Zie ik iets over het hoofd? Bedankt alvast!