none
Orientacion de un pdf de vertical a horizontal

    Debate general

  • Buenas tardes, estoy intentando que el pdf (prueba.pdf) que es una sola hoja y esta en vertical, ponerla en horizontal, pero no hay manera, alguien me podria echar un cable. Mil gracias.

    Un Saludo.

      Dim file As String = "C:\prueba\prueba.pdf"
            Dim PDF As String = "C:\prueba\6.pdf"
            Dim doc As New Document
            Try
                Dim fs As New FileStream(PDF, FileMode.Create, FileAccess.Write, FileShare.None)
                Dim copy As New PdfCopy(doc, fs)
                doc.Open()
                doc.SetPageSize(iTextSharp.text.PageSize.A4.Rotate())
                Dim rd As PdfReader
                rd = New PdfReader(file)
                copy.AddPage(copy.GetImportedPage(rd, 1))
                rd.Close()
            Catch ex As Exception
                MsgBox("Error en carga de PDF")
            Finally
                doc.Close()
            End Try
            Me.Close()

    miércoles, 16 de noviembre de 2016 16:03

Todas las respuestas

  • No tengo a mano la documentación del SetPageSize, pero podrías hacer el Rotate como argumento del New Document

    Dim doc As New Document(iTextSharp.text.PageSize.A4.Rotate())

    miércoles, 16 de noviembre de 2016 16:20
  • Lo he probado y no me hace nada, me lo sigue sacando en vertical :-(.

    Pero mucha gracias por contestar.

    codigo

    Dim file As String = "C:\prueba\prueba.pdf"
            Dim PDF As String = "C:\prueba\6.pdf"
            Dim doc As New Document(iTextSharp.text.PageSize.A4.Rotate())
            Try
                Dim fs As New FileStream(PDF, FileMode.Create, FileAccess.Write, FileShare.None)
                Dim copy As New PdfCopy(doc, fs)
                doc.Open()
                Dim rd As PdfReader
                rd = New PdfReader(file)
                copy.AddPage(copy.GetImportedPage(rd, 1))
                rd.Close()
            Catch ex As Exception
                MsgBox("Error en carga de PDF")
            Finally
                doc.Close()
            End Try
            Me.Close()

    miércoles, 16 de noviembre de 2016 16:49