Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Pdfsharp
Forum - C# / VB.NET - Pdfsharp

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
ju89 (Normal User)
Pro


Messaggi: 61
Iscritto: 26/03/2014

Segnala al moderatore
Postato alle 10:22
Venerdì, 17/07/2015
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

  1. Imports PdfSharp
  2. Imports PdfSharp.Drawing
  3. Imports PdfSharp.Pdf
  4.  
  5. Public Class Anteprima
  6.     Dim fine As Integer
  7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  8.         pdf()
  9.     End Sub
  10.     Sub pdf()
  11.         Dim document As PdfDocument = New PdfDocument
  12.         document.Info.Title = "Rateizzazione Sanzioni CdS"
  13.         Dim page As PdfPage = document.AddPage
  14.         page.Size = PdfSharp.PageSize.A4
  15.         page.Orientation = PdfSharp.PageOrientation.Landscape
  16.         Dim e As XGraphics = XGraphics.FromPdfPage(page)
  17.         Dim font As XFont = New XFont("Arial", 14, XFontStyle.Regular)
  18.         Dim fine As Integer = Listview1.Items.Count - 1
  19.         For i As Integer = 0 To fine
  20.             e.DrawString(Me.Label7.Text, font, XBrushes.Black, 50, 50)
  21.             e.DrawString(Me.TextBox1.Text, font, XBrushes.Black, 130, 50)
  22.             e.DrawString(Me.Label6.Text, font, XBrushes.Black, 50, 70)
  23.             e.DrawString(Me.DateTimePicker4.Text, font, XBrushes.Black, 130, 70)
  24.             e.DrawString(Me.Label5.Text, font, XBrushes.Black, 50, 90)
  25.             e.DrawString(Me.DateTimePicker3.Text, font, XBrushes.Black, 130, 90)
  26.             e.DrawString(Me.Listview1.Columns(0).Text, font, XBrushes.Black, 50, 150)
  27.             e.DrawString(Me.Listview1.Items.Item(i).Text, font, XBrushes.Black, 50, 165 + 20 * i)
  28.             e.DrawString(Me.Listview1.Columns(1).Text, font, XBrushes.Black, 120, 150)
  29.             e.DrawString(Me.Listview1.Items(i).SubItems(1).Text, font, XBrushes.Black, 120, 165 + 20 * i)
  30.             e.DrawString(Me.Listview1.Columns(2).Text, font, XBrushes.Black, 210, 150)
  31.             e.DrawString(Me.Listview1.Items(i).SubItems(2).Text, font, XBrushes.Black, 210, 165 + 20 * i)
  32.             e.DrawString(Me.Listview1.Columns(3).Text, font, XBrushes.Black, 340, 150)
  33.             e.DrawString(Me.Listview1.Items(i).SubItems(3).Text, font, XBrushes.Black, 340, 165 + 20 * i)
  34.             e.DrawString(Me.Listview1.Columns(4).Text, font, XBrushes.Black, 500, 150)
  35.             e.DrawString(Me.Listview1.Items(0).SubItems(4).Text, font, XBrushes.Black, 500, 165 + 20 * i)
  36.             e.DrawString(Me.Listview1.Columns(5).Text, font, XBrushes.Black, 580, 150)
  37.             e.DrawString(Me.Listview1.Items(i).SubItems(5).Text, font, XBrushes.Black, 580, 165 + 20 * i)
  38.         Next
  39.         Dim filename As String = "Rateizzazione Sanzioni CdS.pdf"
  40.         document.Save(filename)
  41.             Process.Start(filename)
  42.     End Sub
  43. 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


Gianluca
PM Quote
Avatar
Thejuster (Member)
Guru^2


Messaggi: 1704
Iscritto: 04/05/2008

Segnala al moderatore
Postato alle 12:06
Venerdì, 17/07/2015
Devi inizializzare la stessa pagina nuovamente per poi dopo aggiungerla
in ogni cliclo. Così è scritto nel wiki.



http://www.pdfsharp.net/wiki/PageSizes-sample.ashx?AspxAut ...






PM Quote
Avatar
ju89 (Normal User)
Pro


Messaggi: 61
Iscritto: 26/03/2014

Segnala al moderatore
Postato alle 12:29
Venerdì, 17/07/2015
Testo quotato

Postato originariamente da Thejuster:

Devi inizializzare la stessa pagina nuovamente per poi dopo aggiungerla
in ogni cliclo. Così è scritto nel wiki.



http://www.pdfsharp.net/wiki/PageSizes-sample.ashx?AspxAut ...







This sample shows a document with different page sizes.

Si parla di dimensione di pagina, non di quello che chiedevo io...


Gianluca
PM Quote
Avatar
ju89 (Normal User)
Pro


Messaggi: 61
Iscritto: 26/03/2014

Segnala al moderatore
Postato alle 11:07
Lunedì, 20/07/2015
niente? aiutini? :d


Gianluca
PM Quote
Avatar
TheDarkJuster (Member)
Guru^2


Messaggi: 1452
Iscritto: 27/09/2013

Segnala al moderatore
Postato alle 13:31
Lunedì, 20/07/2015
Testo quotato

Postato originariamente da ju89:

niente? aiutini? :d



Che altro aiutino vuoi? L'esempio che ti è stato dato risolve il tuo problema. Se non ti sta bene che le pagine abbiano dimensioni diverse falle di dimensioni uguali!

PM Quote
Avatar
ju89 (Normal User)
Pro


Messaggi: 61
Iscritto: 26/03/2014

Segnala al moderatore
Postato alle 14:52
Lunedì, 20/07/2015
Testo quotato

Postato originariamente da TheDarkJuster:
Testo quotato

Postato originariamente da ju89:

niente? aiutini? :d



Che altro aiutino vuoi? L'esempio che ti è stato dato risolve il tuo problema. Se non ti sta bene che le pagine abbiano dimensioni diverse falle di dimensioni uguali!



Forse mi sono spiegato male ma io non ho bisogno di dimensioni di pagine. Se metto 60 rate mi scrive solo fino a 22 rate nel Pdf, se creo anche un nuovo foglio, mi rimane bianco...


Gianluca
PM Quote
Avatar
Thejuster (Member)
Guru^2


Messaggi: 1704
Iscritto: 04/05/2008

Segnala al moderatore
Postato alle 15:07
Lunedì, 20/07/2015
Dov'è il pusante! piero hai detto che lo mettevi!!

Warp to ciaffo zone!


Quoto:

L'esempio che ti è stato dato risolve il tuo problema. Se non ti sta bene che le pagine abbiano dimensioni diverse falle di dimensioni uguali!


PM Quote
Avatar
ju89 (Normal User)
Pro


Messaggi: 61
Iscritto: 26/03/2014

Segnala al moderatore
Postato alle 17:45
Lunedì, 20/07/2015
Vabbè ciao raga!


Gianluca
PM Quote
Avatar
TheDarkJuster (Member)
Guru^2


Messaggi: 1452
Iscritto: 27/09/2013

Segnala al moderatore
Postato alle 18:26
Lunedì, 20/07/2015
ciao

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo