lo primero que debes hacer es poner esto
CommonDialog1.CancelError = True
esto hace que si se pulsa el boton cancelar se produzca un error
luego lo capturas y generas la secuencia que deseas
haber si el siguente codigo te ayuda.
Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Presentar el cuadro de diálogo Imprimir
CommonDialog1.ShowPrinter
' Obtener los valores seleccionados por el usuario en el cuadro de
' diálogo
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' Código para enviar los datos a la impresora
Next i
Exit Sub
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
Exit Sub
End Sub
