ju89 (Normal User)
Pro
Messaggi: 61
Iscritto: 26/03/2014
|
Buongiorno, ho la necessita di esportare i dati di una listview in pdf. Ho usato pdfsharp vi mostro il codice:
Codice sorgente - presumibilmente VB.NET |
Imports PdfSharp Imports PdfSharp.Drawing Imports PdfSharp.Pdf Public Class Anteprima Dim fine As Integer Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click pdf() End Sub Sub pdf() Dim document As PdfDocument = New PdfDocument document.Info.Title = "Rateizzazione Sanzioni CdS" Dim page As PdfPage = document.AddPage page.Size = PdfSharp.PageSize.A4 page.Orientation = PdfSharp.PageOrientation.Landscape Dim e As XGraphics = XGraphics.FromPdfPage(page) Dim font As XFont = New XFont("Arial", 14, XFontStyle.Regular) Dim fine As Integer = Listview1.Items.Count - 1 For i As Integer = 0 To fine e.DrawString(Me.Label7.Text, font, XBrushes.Black, 50, 50) e.DrawString(Me.TextBox1.Text, font, XBrushes.Black, 130, 50) e.DrawString(Me.Label6.Text, font, XBrushes.Black, 50, 70) e.DrawString(Me.DateTimePicker4.Text, font, XBrushes.Black, 130, 70) e.DrawString(Me.Label5.Text, font, XBrushes.Black, 50, 90) e.DrawString(Me.DateTimePicker3.Text, font, XBrushes.Black, 130, 90) e.DrawString(Me.Listview1.Columns(0).Text, font, XBrushes.Black, 50, 150) e.DrawString(Me.Listview1.Items.Item(i).Text, font, XBrushes.Black, 50, 165 + 20 * i) e.DrawString(Me.Listview1.Columns(1).Text, font, XBrushes.Black, 120, 150) e.DrawString(Me.Listview1.Items(i).SubItems(1).Text, font, XBrushes.Black, 120, 165 + 20 * i) e.DrawString(Me.Listview1.Columns(2).Text, font, XBrushes.Black, 210, 150) e.DrawString(Me.Listview1.Items(i).SubItems(2).Text, font, XBrushes.Black, 210, 165 + 20 * i) e.DrawString(Me.Listview1.Columns(3).Text, font, XBrushes.Black, 340, 150) e.DrawString(Me.Listview1.Items(i).SubItems(3).Text, font, XBrushes.Black, 340, 165 + 20 * i) e.DrawString(Me.Listview1.Columns(4).Text, font, XBrushes.Black, 500, 150) e.DrawString(Me.Listview1.Items(0).SubItems(4).Text, font, XBrushes.Black, 500, 165 + 20 * i) e.DrawString(Me.Listview1.Columns(5).Text, font, XBrushes.Black, 580, 150) e.DrawString(Me.Listview1.Items(i).SubItems(5).Text, font, XBrushes.Black, 580, 165 + 20 * i) Next Dim filename As String = "Rateizzazione Sanzioni CdS.pdf" document.Save(filename) Process.Start(filename) End Sub End Class
|
Vi spiego il programma:
Il programma fa un piano di rateizzazione, rate che vanno da 2 a 60 mesi; Il programma funziona alla perfezione, però se inserisco per esempio 60 rate, quando faccio l'esportazione in pdf mi stampa fino a 22 rate, poi non crea nuove pagine e continua a stampare. Vi posto lo screen del pdf https://imageshack.com/i/hlldqb6lp
Come posso fare? Se uso Addpage() Mi aggiunge 10 pagine pdf e non mi continua a stampare.
Grazie
Ultima modifica effettuata da ju89 il 17/07/2015 alle 10:23 |