Cita:
Iniciado por analoyra 
hola, le agregue el commondialog.showprinter y me pone la lista, pero le ponga cancelar o imprimir me lo imprime igual
Puedes cambiar la propiedad CancelError del Dialog a True. Así, cuando se seleccione Cancelar producirá un error que puedes controlar con:
Código:
On Error Resume Next
Dialog.ShowPrinter
If Err > 0 Then Exit Sub