Printer keuze

[kuwertie]

Hallo,

Ik heb een code waarmee ik netjes in PDF kan printen. Maar dan pakt access elke keer de standaardprinter om het op te slaan. Dus ik moet CutePDF als standaardprinter hebben om met een opdrachtknop in PDF te kunnen printen.

Mijn huidige code is:

Private Sub Opslaan_PDF_Click()
On Error GoTo Err_cmdrpt_klanten_Click
Dim stDocName As String

    stDocName = "rpt_klanten"
    DoCmd.OpenReport stDocName, , , , , "[klantenID]=" & Me.klantenID
    Exit Sub
    
    
Err_cmdrpt_klanten_Click:
MsgBox Err.Description

End Sub

Met de volgende code krijg ik een venster voor printer keuze.

DoCmd.RunCommand acCmdPrint

Hoe kan ik dit combineren? Want wanneer CutePDF als standaardprinter ingesteld staat, moet er elke keer voor een ander printer gekozen worden bij het printen van iets anders.

Zo werkt het in ieder geval niet:

Private Sub Opslaan_PDF_Click()
On Error GoTo Err_cmdrpt_klanten_Click
Dim stDocName As String

    stDocName = "rpt_klanten"
    DoCmd.RunCommand acCmdPrint, , , , , "[klantenID]=" & Me.klantenID
    Exit Sub
    
    
Err_cmdrpt_klanten_Click:
MsgBox Err.Description

End Sub

Alvast bedankt!

 

[OctaFish]

Je kunt een printer aan een variabele toewijzen, en later weer terugzetten.

Dim prtDefault As Printer
Set prtDefault = Application.Printer

Set Application.Printer = Application.Printers(0)     'Nummer opzoeken van de Cutepdf printer. 0 = eerste printer in lijst.

Code uitvoeren....

Set Application.Printer=prtDefault

 

[kuwertie]

Deze is veel beter!

Bedankt man!