[VB.NET] Stampare foglio con PrintPreviewControl

[SanMichele]

Ciao ragazzi,
qui di seguito vi posto il codice che utilizzo per richiamare l'anteprima di un DataGriView:

If newpage Then
                row = Form4.dtg_profilo_agente.Rows(mRow)
                x = e.MarginBounds.Left
                For Each cell As DataGridViewCell In row.Cells
                    If cell.Visible Then
                        rc = New Rectangle(x, y, cell.Size.Width, cell.Size.Height)
                        e.Graphics.FillRectangle(Brushes.LightGray, rc)
                        e.Graphics.DrawRectangle(Pens.Black, rc)
                        Select Case Form4.dtg_profilo_agente.Columns(cell.ColumnIndex).DefaultCellStyle.Alignment
                            Case DataGridViewContentAlignment.BottomRight,
                             DataGridViewContentAlignment.MiddleRight
                                fmt.Alignment = StringAlignment.Far
                                rc.Offset(-1, 0)
                            Case DataGridViewContentAlignment.BottomCenter,
                            DataGridViewContentAlignment.MiddleCenter
                                fmt.Alignment = StringAlignment.Center
                            Case Else
                                fmt.Alignment = StringAlignment.Near
                                rc.Offset(2, 0)
                        End Select
e.Graphics.DrawString(Form4.dtg_profilo_agente.Columns(cell.ColumnIndex).HeaderText,
                                                Form4.dtg_profilo_agente.Font, Brushes.Black, rc, fmt)
                        x += rc.Width
                        h = Math.Max(h, rc.Height)
                    End If
                Next
                y += h

            End If
            newpage = False

            Dim thisNDX As Int32
            For thisNDX = mRow To Form4.dtg_profilo_agente.RowCount - 1
                If Form4.dtg_profilo_agente.Rows(thisNDX).IsNewRow Then Exit For
                row = Form4.dtg_profilo_agente.Rows(thisNDX)
                x = e.MarginBounds.Left
                h = 0
                x = e.MarginBounds.Left

                For Each cell As DataGridViewCell In row.Cells
                    If cell.Visible Then
                        rc = New Rectangle(x, y, cell.Size.Width, cell.Size.Height)

                        e.Graphics.DrawRectangle(Pens.Black, rc)

                        Select Case Form4.dtg_profilo_agente.Columns(cell.ColumnIndex).DefaultCellStyle.Alignment
                            Case DataGridViewContentAlignment.BottomRight,
                             DataGridViewContentAlignment.MiddleRight
                                fmt.Alignment = StringAlignment.Far
                                rc.Offset(-1, 0)
                            Case DataGridViewContentAlignment.BottomCenter,
                            DataGridViewContentAlignment.MiddleCenter
                                fmt.Alignment = StringAlignment.Center
                            Case Else
                                fmt.Alignment = StringAlignment.Near
                                rc.Offset(2, 0)
                        End Select

                        e.Graphics.DrawString(cell.FormattedValue.ToString(),
                                          Form4.dtg_profilo_agente.Font, Brushes.Black, rc, fmt)

                        x += rc.Width
                        h = Math.Max(h, rc.Height)
                    End If

                Next
                y += h
                mRow = thisNDX + 1

                If y + h > e.MarginBounds.Bottom Then
                    e.HasMorePages = True
                    newpage = True
                    Return
                End If
            Next
        End If

Quello che devo fare è stampare il contenuto del documento PrintPreviewControl1
Grazie
SanMichele

[SanMichele]

Ragazzi qualche aiuto o idea?

[SanMichele]

Ho provato semplicemente cosi:

PrintDocument1.Print()

Funziona, nel senso che stampa il foglio ma non stampa il contenuto
SanMichele

[SanMichele]

Qualche aiuto ragazzi??

[SirJo]

difficile aiutarti se non possiamo provarlo

riesci a fare un piccolo progetto dove si vede il problema (ma metteci solo l'essenziale, nessuna riga in più di codice che non serve) e così possiamo provarlo ??

[SanMichele]

difficile aiutarti se non possiamo provarlo

riesci a fare un piccolo progetto dove si vede il problema (ma metteci solo l'essenziale, nessuna riga in più di codice che non serve) e così possiamo provarlo ??

Ciao SirJo
ho scritto il tutto il codice perché così se a qualcuno potesse servire ne può approfittare
Al di là di questo, il progetto attualmente ha solo una pagina
1) Listview
4) TextBox
1) Pulsante Anteprima di stampa (vedi codice allegato)

Quello che non riesco a fare è stampare il contenuto di un PrintPreviwContr1.
Ho provato, ripeto, con PrintPreviewControl1.Print() ma l’esito è che stampa il foglio
ma non il contenuto. Tutto qui

PS: Ho visto solo ora che avevo scritto DataView perdonami ma in realtà è ListView
grazie
SanMichele

[SirJo]

quando fai il preview, sul monitor li vedi i dati ??

... ma soprattutto, che codice hai nell'evento BeginPrint ?

[SanMichele]

Si sul video ci sono i dati e poi stampa vuoto

[SirJo]

ok, adesso rispondi alla seconda domanda che ti ho fatto

[SirJo]

se vuoi sono riuscito a riprodurre l'errore ed ho capito che cosa è sbagliato