Private Documento As Printing.PrintDocument
    
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStampa.Click
      

        Documento = New Printing.PrintDocument
          'CLIENTE

        AddHandler Documento.PrintPage, AddressOf prtAllegatiCli_PrintPage
        Dim anteprimaCli As New frmAnteprimaAllegati(Documento)
        With anteprimaCli
            .ShowDialog()
            '.PrintPreviewControl2.Columns = CInt(sTesto)
        End With
     End Sub