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..
Het huidige stuk code:
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..
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