Hvordan annulerer man en common control dialog

den kode, som gemmer/udskriver, skal blot have indsat et kriterie:

If cmdlg.filename <> "" then
  ...
else
  exit sub
endif

her er et eksempel fra hjælpen

Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
  ' Set Cancel to True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  ' Display the Print dialog box
  CommonDialog1.ShowPrinter
  ' Get user-selected values from the dialog box
  BeginPage = CommonDialog1.FromPage
  EndPage = CommonDialog1.ToPage
  NumCopies = CommonDialog1.Copies
  For i = 1 To NumCopies
    ' Put code here to send data to the printer
  Next i
  Exit Sub
ErrHandler:
  ' User pressed the Cancel button
  Exit Sub

End Sub

You can also set error trapping on

lgFileOpen.CancelError = True
   
On Error GoTo Err_dlgFileSearch


.

dlgFileOpen.ShowOpen

.
.

Err_dlgFileSearch:
msgbox "No file selected...."

dlgFileOpen.CancelError = True

Takker, Det var lige det der skulle til.
Det er kabbaks løsning jeg har brugt da den virker både til gem/print, så derfor får han points - håber det er i orden.

MVH Michael Jensen

Hvis han da vil have dem...Kabbak smid venligst et svar.

MVH Michael Jensen

ok, et svar ;-))

No problem from here :o)

Takker for hjælpen - altid rart at man kan komme rendende her nå man har brug fopr support :-))

MVH Michael Jensen