Mogelijkheid om printopdracht uit klep uit te voeren?

Status
Niet open voor verdere reacties.
M

monty1a

Gebruiker
Lid geworden
29 dec 2006
Berichten
202
Hallo,

Normaal gaat een printopdracht standaard uit de lade (papier).
Maar nu wil ik standaard in de klep invoer (handmatige invoer) een stapels sticker leggen zodat we niet hoeven te wisselen als we stickers moeten printen.

Maar is er een mogelijkheid met een VBA dat dit ook automatisch gebeurd?

Code: 
Sub Afdrukken_proefkap()
'
' Afdrukken_proefkap Macro
'
If MsgBox("Wilt u de proefkapstickers afdrukken? " & vbCr & vbCr & "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Afdrukken") = vbCancel Then Exit Sub


    Range("C1020:L1103").Select
    Range("L1103").Activate
    Selection.PrintOut Copies:=1, Collate:=True
    Range("K39").Select
End Sub

Alvast bedankt
 
Laatst bewerkt:
Installeer een tweede printer naar hetzelfde fysieke device.
Zet daarin de standaard lade op Handmatige invoer.
In VBA kan je eenvoudig wisselen tussen beide printers.
 
Ik heb in principe een 2e printer aangemaakt met de juiste instellingen. Hoe kan ik verder?

De standaardprinter heet: "Kyocera ECOSYS P6130cdn KX op Zoetermeer"

De printernaam voor de sticker heet: "ECOSYS P6130cdn_sticker"


\Users\S-1-5-21-834556668-1979863341-1231754661-1097\Printers\^\^\zoetermeer^\Kyocera ECOSYS P6130cdn KX
 
Laatst bewerkt:
Zo'n zelfde had ik ook net gevonden....
Alleen...
Hij geeft wat ik ook probeer een foutmelding op:

Application.ActivePrinter = “ECOSYS P6130cdn_sticker”

Wat kan dat zijn?
 
Met
Code: 
    MsgBox Application.ActivePrinter
kun je precies zien hoe de syntax er uit moet zien.
 
monty1a zei:
Zo'n zelfde had ik ook net gevonden....
Alleen...
Hij geeft wat ik ook probeer een foutmelding op:

Application.ActivePrinter = “ECOSYS P6130cdn_sticker”

Wat kan dat zijn?
Klik om te vergroten...

Kijk ook eens naarr die dubbele quote characters.
Dat zijn deze: ”
In plaats van deze: "

En je verteld de foutmelding er niet bij.
 
Ik heb de andere haakjes geprobeerd.... maar helaas lukte dat niet.

Code: 
Sub Afdrukken_proefkap()
'
' Afdrukken_proefkap Macro
'
If MsgBox("Wilt u de proefkapstickers afdrukken? " & vbCr & vbCr & "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Afdrukken") = vbCancel Then Exit Sub

 Dim STDprinter As String

STDprinter = Application.ActivePrinter
 Application.ActivePrinter = "ECOSYS P6130cdn_sticker"
ActiveSheet.PrintOut
 Application.ActivePrinter = STDprinter
    Range("K39").Select
End Sub

De melding die ik krijg is:

Fout 1004 tijdens uitvoering:

Methode ActivePrinter van object_Application is mislukt.
 
Dan geef je dus niet de juiste naam op bij Application.ActivePrinter =
Er hoort nog iets van "on Ne04: " of iets dergelijks achter.
 
Ok ... ik ga ff iets proberen...of is er een makkelijkere manier om hier achter te komen?
 
Kijk eens of je dat bij de eigenschappen van de printer ergens kan zien.
 
Ik vind diverse dingen, maar weet niet prcs waar ik naar moet zoeken.

Op locatie:
op Kyocera ECOSYS P6130cdn KX

Pad naar apparaatinstantie
SWD\PRINTENUM\{9B617730-F035-483F-AF26-154921FB34BD}
 
Wat ik al zei, de naam die je printer hebt geven maar dan met iets van "on Ne04: " er achter.
Wat bij jullie dan de string tusson on en de dubbele punt is weet ik uiteraard niet.
 
monty1a zei:
Ok ... ik ga ff iets proberen...of is er een makkelijkere manier om hier achter te komen?
Klik om te vergroten...
Ja: alle antwoorden netjes doorlezen. Hoe je achter de exacte naam komt heb ik al in bericht #6 gezet.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan