När jag använder nedanstående koden kan jag inte oavsett hur många kopior som jag anger i skrivarfönstret endast få 1 (en) utskrift av formuläret.

Varför regaerar inte skrivaren ??
Jag vill kunna välja hur många kopior som ska skrivas ut.

Private Sub SkrivUt_Click()
MsgBox "Skrivaren aktiv ??"
CommonDialog1.CancelError = True
Err.Clear
On Error Resume Next
CommonDialog1.ShowPrinter
If Err.Number = 32755 Then
MsgBox "Avbröt utskriften"
Else
PrintForm
End If
On Error GoTo 0

End Sub

Mvh Kenneth

Prova det här

Private Sub SkrivUt_Click()

Dim I As Integer
MsgBox "Skrivaren aktiv ??"
CommonDialog1.CancelError = True
Err.Clear
On Error Resume Next
CommonDialog1.ShowPrinter
If Err.Number = 32755 Then
MsgBox "Avbröt utskriften"
Else
For I = 1 To CommonDialog1.Copies
PrintForm
Next I
End If
On Error GoTo 0

End Sub

Hej Heinz

Så enkelt men svårt.

Klart och kanon.

Tack så hjärtligt

Mvh
Kenneth