Printkwaliteit in MS Access VB

Status
Niet open voor verdere reacties.

jampa

Gebruiker
Lid geworden
17 jan 2007
Berichten
5
Hallo allemaal,

Ik ben totaal geen MS programmeur, maar ben bezig met een factureringsprogramma voor een kennis. Alles verloopt redelijk op rolletjes, maar als ik op het print icoontje klik dan wordt de factuur op de slechtste kwaliteit uitgeprint.

Hoe kan ik dit op de beste kwaliteit zetten??

Ps weet niet of ik op de juiste topic zit..:confused:

Het huidige stuk code:

Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan