Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/08/2009, 21:40
sabao
 
Fecha de Ingreso: abril-2006
Ubicación: Santiago ,Chile
Mensajes: 169
Antigüedad: 18 años, 1 mes
Puntos: 0
configurar tamaño gridview con iTextSharp al exportar a pdf

Hola ..uso itecsharp para exporta atrves d eun boton una gridview o varios gridview a pdf pero , nose como configurar para que al exporta en le pdf qued mas pequeño el tamaño de las fila so coumnas de las grilla o mismo pasa con las fotos al exporta.

este es el codigo

Código PHP:
Imports System.Data
Imports System
.Data.SqlClient
Imports System
.IO
Imports iTextSharp
.text
Imports iTextSharp
.text.pdf
Imports iTextSharp
.text.html
Imports iTextSharp
.text.html.simpleparser
Imports System
.Text
Partial 
Class repuesto_detalle
    Inherits System
.Web.UI.Page

    
Protected Sub ImageButton1_Click(ByVal sender As ObjectByVal e As System.Web.UI.ImageClickEventArgsHandles ImageButton1.Click

        Response
.ContentType "application/pdf"
        
Response.AddHeader("content-disposition""attachment;filename=Equipo.pdf")
        
Response.Cache.SetCacheability(HttpCacheability.NoCache)
        
Dim sw As New StringWriter()
        
Dim hw As New HtmlTextWriter(sw)

        
GridView_titulo.AllowPaging False
        GridView_titulo
.DataBind()
        
GridView_titulo.RenderControl(hw)

        
DetailsView_repuesto.AllowPaging False
        DetailsView_repuesto
.DataBind()
        
DetailsView_repuesto.RenderControl(hw)

        
Dim sr As New StringReader(sw.ToString())
        
Dim pdfDoc As New Document(PageSize.A410.0F10.0F10.0F0.0F)
        
Dim htmlparser As New HTMLWorker(pdfDoc)
        
PdfWriter.GetInstance(pdfDocResponse.OutputStream)
        
pdfDoc.Open()
        
htmlparser.Parse(sr)
        
pdfDoc.Close()
        
Response.Write(pdfDoc)
        
Response.End()
    
End Sub

    
Protected Function GetUrl(ByVal page As String) As String

        Dim splits 
As String() = Request.Url.AbsoluteUri.Split("/"c)

        If 
splits.Length >= 2 Then

            Dim url 
As String splits(0) & "//"

            
For As Integer 2 To splits.Length 2

                url 
+= splits(i)

                
url += "/"

            
Next

            
Return url page

        End 
If

        Return 
page

    End 
Function

    Public 
Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
         
Verifies that the control is rendered 
    End Sub
End 
Class 
Saludos