Grazie Teo... notizie come al solito precise e risolutive...
Public Sub Stampa(ByVal PdfContratto As String)
' Stream di byte in memoria
Dim mem As New MemoryStream()
' Nuovo documento
Dim documento As New Document()
' Crea un pdf writer e lo collega al flusso di byte in memoria
Dim docOut As PdfWriter = PdfWriter.GetInstance(documento, mem)
' Definisce un oggetto per contenere grafica di sfondo e testo con posizionamento
' assoluto
Dim cb As PdfContentByte
'..:: LG aggiunta stampa contratto
Dim reader As iTextSharp.text.pdf.PdfReader
Dim page As iTextSharp.text.pdf.PdfImportedPage
Dim currentPageNumber As Integer
''''''''''''''''''''''''''''''''''
' Definizione formato pagina
documento.SetPageSize(PageSize.A4)
documento.SetMargins(50, 50, 50, 50)
' Apertura documento
documento.Open()
cb = docOut.DirectContent
'..:: LG
PdfContratto = ConfigurationManager.AppSettings("PathContratti") & "\" & PdfContratto
reader = New iTextSharp.text.pdf.PdfReader(PdfContratto)
''''''''
For i As Integer = 1 To CopieStampa
'..:: LG
For y As Integer = 1 To ConfigurationManager.AppSettings("PagineContratti")
page = docOut.GetImportedPage(reader, y)
cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0)
documento.NewPage()
Next
documento.NewPage()
''''''''
CreaPaginaStampa(documento, cb)
documento.NewPage()
Next
' Chiusura documento
documento.Close()
StampaPDF(mem)
End Sub
Lanfra