Private Sub SkrivUt_Click() <code>Utskriftsproblem
CommonDialog1.ShowPrinter
Me.PrintForm
End Sub
Ett problem som jag försökt hitta i alla inlägg.
Hittar det ej!
Ovanstående kod ska oberoende av installerad skrivare skriva ut formen, vilket den helt korrekt gör, men...
Om jag, innan jag klickar på OK för utskrift, ångrar mig och istället trycker på Cancel, skriver den ändå ut den valda formen.
Hur får jag Skrivarfönstret att "förstå" att jag ångrat mig ???
Tack på förhand.Sv: Utskriftsproblem
CommonDialog1.CancelError = True
Err.Clear
On Error Resume Next
CommonDialog1.ShowPrinter
If Err.Number = 32755 Then
MsgBox "avbröt"
Else
MsgBox "skrivut eller annat fel"
End If
On Error GoTo 0
</code>
/Johan