Ho fatto un piccolo passo avanti, il codice è questo

codice:
Private Sub RiempiCombo()
  Dim prn As Printer
  'Aggiungiamo per prima la stampante predifinita
  stampanti.AddItem Printer.DeviceName
  
  For Each prn In Printers
    'Se la stampante non è quella predefinita la andiamo ad inserire in quanto non è ancora stata aggiunta
    If prn.DeviceName <> Printer.DeviceName Then
        stampanti.AddItem prn.DeviceName
    End If
  Next
  stampanti.ListIndex = 0
End Sub


Private Sub stampanti_Click()
  Dim prn As Printer
  For Each prn In Printers
    If prn.DeviceName = stampanti.Text Then
      Set Printer = prn
      Exit For
    End If
  Next
End Sub



Private Sub tastostampa_Click()
    
    For T = 0 To Form1.operazioni.ApproxCount - 1 ' legge dalla prima all'ultima riga di datagrid1
        Form1.operazioni.Row = T
        For ColonnaGrid = 0 To 8 - 1
            Form1.operazioni.Col = ColonnaGrid
            Printer.Print Form1.operazioni.Text ' stampa la colonna 0 riga t
        Next ColonnaGrid
    Next T

End Sub
Il problema è questo, sto stampando una datagrid, le pagine totali da stampare ono 3, però tutte le volte quando ono a emtà del secondo foglio (quindi metà stampa), si blocca e finchè non chiudo il mio eseguibile non riprende a stampare....

Una volta chiusa l'applicazione infatti rinizia a stampare tutto il documento fino alla fine senza problemi...


Quacuno sa darmi una spiegazione?


Grazie