Salve a tutti,

mi sono appena iscritto perche' spero di trovare chi possa risolvere un problema di stampa in VB.net.

Desidero passare una stringa di caratteri da stampare all'oggetto PrintDocument. Come si puo Fare?

Nel codice esempio ho dovuto dimensionare la stringa title1 all'interno della Sub. Ma se desidero passarla come devo fare?

Sembra che l'oggetto PrintDocument si possa usare nella classe Form. Un aiutino?

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(sender As System.Object, Prt As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

'Print Title


Dim fn As Single = 12 : Dim Fnt = New Font("Arial", fn, FontStyle.Bold)



Dim title1$ = "Stampato alle ore " + Trim(DateTime.Now)


Dim Max_CurX As Single = Prt.PageBounds.Width, Max_CurY As Single = Prt.PageBounds.Height 'queste sono le coord massime di stampa


Dim CurrentX As Integer = 0, CurrentY As Integer = 10 'coordinate X Y


CurrentX = (Max_CurX - CreateGraphics.MeasureString(title1$, Fnt).Width) / 2 'centratura titolo1


Prt.Graphics.DrawString(title1$, Fnt, Brushes.Black, CurrentX, CurrentY) 'instruzione per la stampa titolo1


Prt.HasMorePages = False


End Sub


Anticipatamente ringrazio.