Common dialog

Har du problemer med at der bliver printet - selv om der trykkes cancel ?

Mit problem er nok at jeg ikke for godt ved hvordan common dialog virker. Jeg kan sagtens få den til at printe, og jeg kan også godt få common dialog til at fortælle mig hvilken printer der skal bruges. Men jeg kan ikke lige se hvordan jeg skal stille min kode op, så udprintningen afhænger af om der er trykket Ok eller Cancel. Et hurtigt kodeeksempel kunne fx være til hjælp.

Måske kan dette kode hjælpe dig:

Dette kode burde finde printere der er koblet til systemmet.

Private Sub Form_Activate()
List1.Clear
Dim i%
For i = 0 To Printers.Count - 1
List1.AddItem Printers(i).DeviceName & \": \" & Printers(i).Port
Next i
End Sub

Private Sub List1_Click()
Set Printer = Printers(List1.ListIndex)
Printer.Print \"test Text\"
Printer.EndDoc
End Sub

Jeg regner med at du bruger en msgbox med valgmuligheder.

Da kan du muligvis gøre det sådan her:

Dim Message as string
Message = msgbox(\"Valg....

if Message = vbOK then msgbox (\"Der blev trykket OK\")
if Message = vbCancel then ....

Jeg bruger CommonDialog - men jeg tester ikke på om der klikkes på den ene eller den anden knap.

Jeg tror at det er indbygget i CommonDialog at lukke ned - uden at gøre noget - ved tryk på Cancel.

Under properties for din CommonDialog, sætter du \"CancelError\" til at være True.

Private Sub Command1_Click()
On Error GoTo CancelSelected
CommonDialog1.ShowPrinter
On Error GoTo 0
MsgBox \"OK blev valgt\"

Exit Sub
CancelSelected:
On Error GoTo 0
MsgBox \"Der blev trykket Cancel\"

End Sub

...Så kan du bruge en kode i stil med ovenstående.

Takker til driss - det var den stump kode jeg manglede. Burde have tænkte på det selv, men undlod af en eller anden årsag. :-)

Powel>> dit virker vel også, men nu var det jo en CommonDialog jeg ledte efter brugsanvisning i.

Der er OK, vi lærer da alle af dette her...