Using this code does anyone know what code I need to add so that the common dialog combo box appears so that I can select either "ok" or "cancel". Thank you.

Private Sub mnuPrint_Click()
Dim Item As Integer
Dim ErrHndlr As Integer
On Error GoTo ErrHndlr
cdlOne.CancelError = True
cdlOne.ShowPrinter
On Error GoTo 0

' Prints the contents of the lstShopping list box.

For Item = 0 To lstShopping.ListCount - 1
Printer.Print lstShopping.List(Item)
Next
Printer.EndDoc
Exit Sub
ErrHndlr:

End Sub


Archie Kantzavelos