VBA knop voor printen met selectie voor papierlade en enkelzijdig

Status
Niet open voor verdere reacties.
J

jfmjacobs

Gebruiker
Lid geworden
1 mrt 2009
Berichten
45
Hallo allen.

Ik heb geprobeerd om een opdrachtknop in een sjabloon te zetten waarbij geregeld wordt dat pagina 1 uit papierlade 2 wordt geprint en de rest van de paginas uit lade 1.
Ik heb dit gedaan via de mogelijkheid om een macro op te nemen. Echter hij geeft wel twee verschillende printopdrachten maar voert niet door de wisseling uit lade en enkelzijdig afdrukken.
De code ik ik heb opgenomen is
Code: 
Sub printen()
'
' printen Macro
'
'
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="1", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="2-4", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

Het lukt mij niet om dit goed in te regelen. Is het uberhaubt mogelijk?
 
VBA knop voor printen met selectie voor papierlade en enkelzijdig
Klik om te vergroten...
Dit is de enige mogelijkheid om uw printer wijzigingen aan te brengen.
Code: 
Application.Dialogs(xlDialogPrint).Show
 
Laatst bewerkt:
Toch kan het wel als je PCL5 code gebruikt.

Code: 
Open "LPT1:" For Output As #1
Print #1, Chr(27) & "&l1H" [COLOR="#008000"]'Standaard lade[/COLOR]
Print #1, Chr(27) & "&l0S" [COLOR="#008000"]'Simplex print[/COLOR]
Close #1

Vervang hierin LPT1: door de juiste printerpoort.

De PCL5 escape codes voor de verschillende lades:
Code: 
Paper Source Command

The Paper Source command designates the location to feed paper, or it prints the current page.
<ESC>&l#H (the l is a lowercase L)
# = 0 - Print the current page (paper source remains unchanged).
    1 - Feed paper from the a printer-specific tray.
    2 - Feed paper from manual input.
    3 - Feed envelope from manual input.
    4 - Feed paper from lower tray.
    5 - Feed from optional paper source.
    6 - Feed envelope from optional envelope feeder
    7 - Auto select

Je verteld er dus de printer mee, welke lade te gebruiken voor de volgende print opdracht.
Zoek ook eens naar het redirecten van de LPT1 poort:
Code: 
NET USE LPT1 \\server\shared_printer

NB:
E.e.a. geldt uiteraard voor een HP Compatible printer.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan