Hai avuto il mio stesso problema a me hanno aiutato io lo faccio con te!! et voilą

Private Sub cmdStampa_Click()
if MsgBox("Sei pronto per stampare?",vbYesNo,"Info") = vbYes then
frmAssegno.PrintForm
end if
end sub