Kwaliteit afdrukken verhogen

[jampa]

Hallo allemaal,

Ik heb een factueringsprogramma en heb daar een button voor het afdrukken van facturen. 2 x kleur en 2x zwart wit.

Maar de printkwaliteit is niet mooi.

Hoe kan ik die kwaliteit verbeteren?

Private Sub FaktuurAfdrukken_Click()
' Deze code is gemaakt met de wizard Opdrachtknop.
On Error GoTo Err_FaktuurAfdrukken_Click
    Dim strDocNaam As String
    Dim strDocNaamKOPIE As String
    strDocNaam = "RFaktuur"
    strDocNaamKOPIE = "RFaktuurKOPIE"
    ' Rapport Factuur afdrukken; met de query Filter voor facturen om factuur van huidige
    ' order te selecteren.
    DoCmd.OpenReport strDocNaam, acViewNormal, "QFilterRFaktuur"
    DoCmd.OpenReport strDocNaamKOPIE, acViewNormal, "QFilterRFaktuur"
    DoCmd.OpenReport strDocNaam, acViewNormal, "QFilterRFaktuur"
    DoCmd.OpenReport strDocNaamKOPIE, acViewNormal, "QFilterRFaktuur"
    Exit Sub
Exit_FaktuurAfdrukken_Click:
    Exit Sub
Err_FaktuurAfdrukken_Click:
    ' Geen foutbericht weergeven als de actie door de gebruiker is geannuleerd.
    Const conErrDoCmdgeannuleerd = 2501
    If (Err = conErrDoCmdgeannuleerd) Then
        Resume Exit_FaktuurAfdrukken_Click
    Else
        MsgBox Err.Description
        Resume Exit_FaktuurAfdrukken_Click
    End If
End Sub