printerlade instellen

[longron]

Beste alle,

ik wil middels VBA de printerlade instellen op lade 2

Echter kom ik dit niet tegen :
Private Sub Pr1nt()


Copiën = InputBox("Hoeveel copiën wilt u printen?", "Aantal Copiën", 1)
If Copiën = "" Then MsgBox ("U heeft niets ingevoerd." & (Chr(13)) & (Chr(13)) & "Daarom wordt er niets geprint. "), vbInformation, ("Geen invoer"): End
If Not IsNumeric(Copiën) Then
MsgBox ("U voert verkeerde gegevens in"), vbInformation, ("Onjuiste invoer"): End
Else
Cop = CInt(Copiën)
End If


Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=Copiën, Collate:=True, _
IgnorePrintAreas:=False
End Sub

Hoe kan ik dit aanpassen?

Thanks voor het meedenken.

Ronald

 

[OctaFish]

Begin eens met bovenstaande code op te maken met de CODE tag; dit is onleesbaar zo.

 

[jkpieterse]

Je kunt in VBA niet eenvoudig de printerlade kiezen helaas. Wel kan je een kopie van je printer toevoegen in Windows waarvan je instelt dat die altijd een vaste lade neemt. Als je die printer een naam geeft waaruit dat duidelijk blijkt, dan kan je vervolgens die printer eerst laten kiezen voordat je de printopdracht laat uitvoeren, zo iets:

Sub KiesPrinterEnDrukAf()
    If Application.Dialogs(xlDialogPrinterSetup).Show Then
        ActiveSheet.PrintOut
    End If
End Sub

 

[edmoor]

Misschien dat je hier iets aan hebt:
https://www.helpmij.nl/forum/showth...-enkelzijdig?p=6196297&viewfull=1#post6196297