printen van uit ms Access

[JohanError]

Wie weet hoe ik een print opdracht in ms access kan laten uitvoeren?
ik heb een selectie van verschillende items die ik wil afprinten of PDF's maken.

in bijlage de code die ik nu gebruik maar deze werkt om één of andere reden niet altijd
kan ik een check doen of er default printer is ?


Bekijk bijlage Milter TDS Print.doc

 

[OctaFish]

kan ik een check doen of er default printer is ?

Je kunt de naam van de standaardprinter altijd uitlezen en opslaan in een variabele, zodat je 'm later weer terug kunt zetten.

Function CheckDefPrint()
Dim prtDefault As Printer, prt As Printer

    Set prtDefault = Application.Printer
    With prtDefault
        MsgBox "Device name: " & .DeviceName & vbCr & "Driver name: " & .DriverName & vbCr & "Port: " & .Port
    End With

    For Each prt In Application.Printers
        If prt.DeviceName = "PDF995" Then
            Application.Printer = prt
            Exit For
        End If
    Next
    Application.Printer = prtDefault

End Function