🚀 go-pugleaf

Nel codice che riporto di seguito ho un problema, quando finisco di stampare
mi rimane il documento nella coda di stampa e non viene inviato finch� non
iniziao una nuova stampa, cosa che non succede se il documento che stampo a
solo una paggina.Come posso risolvere? c'� qualcosa che dimentico? grazie in
anticipo.
ovviamente PrRMA � un'array che riempio prima. e prc e una variabile che mi
serve da contatore dichiarata come private nel form. Nel frattempo cmq
questo � un'esempio concreto di utilizzo delle funzioni di stampa del nostro
caro .net.

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

'Di seguito dichiaro il carattere

'i margini del foglio

'e l'altezza della riga

Dim mFont As New Font("Courier New", 12)

Dim xPos As Single = e.MarginBounds.Left

Dim yPos As Single = e.MarginBounds.Top

Dim lineHeight As Single = mFont.GetHeight(e.Graphics)

Dim ric, nome, rec, ogg As String 'Valori da sparare in stampa

Dim IxPage As Integer = 20 'Elementi pert pagina

Dim i As Integer = 0

With e.Graphics

Do

If PrC + i >= PrRMA.Length - 1 Then

e.HasMorePages = False

PrintDocument1.Dispose()

Exit Do

End If

ric = PrRMA(PrC + i).id

nome = PrRMA(PrC + i).Nome

rec = PrRMA(PrC + i).rec

ogg = PrRMA(PrC + i).Product

.DrawString(ric & " " & nome & " " & rec, mFont, Brushes.Black, xPos, yPos)

yPos += lineHeight

.DrawString(ogg, mFont, Brushes.Black, xPos, yPos)

yPos += lineHeight * 1.5

i += 1

If i = (IxPage - 1) Then

PrC += i

e.HasMorePages = True

Exit Do

End If

Loop

End With

End Sub