Ciao sempre se ho capito bene
Inserisci nel tuo form un common dialod e chiamalo (CDL1)
Impost la proprietà (CancelEror su)False
copia questo codice.
codice:
Private Sub cmdStampa_Click()

Dim bcancel As Boolean
Dim ncopy As Integer
On Error GoTo gestionerrori

bcancel = False

CDL1.Flags = cdlPDHidePrintToFile Or _
        cdlPDNoSelection Or cdlPDNoPageNums _
        Or cdlPDCollate

CDL1.CancelError = True
CDL1.PrinterDefault = True
CDL1.Copies = 1
CDL1.ShowPrinter

If bcancel = False Then

    tuoform.PrintForm
  'oppure stampa quel che vuoi tu
   
    For ncopy = 1 To CDL1.Copies
    Next ncopy
End If

Exit Sub

gestionerrori:
If Err.Number = cdlCancel Then
bcancel = True
Resume Next
End If
tuoform.SetFocus
 End Sub
Ciao e fammi sapere