ASPPdf ile tabloda veri listeleyerek pdf çıktısı almak

Arkadaşlar mümkünse inceleyip aklınıza çözüm gelirse önerin lütfen, gerçekten yapmam gereken bir konu. Yardımlarınızı bekliyorum.
Şimdi arkadaşlar yapmak istediğimi yazıp, toparlayıp yapmaya çalıştım ancak yapamadım. ASPPdf ile veritabanından çektiğim kişilerin verilerini pdf çıktısı olarak listelek istiyorum. Sadece tek bir kuralı var, her 30 kayıtta bir pdf dosyası içerisinde yeni bir sayfa oluşturmak. Çünki üst başlıklar ve alt yazılardan dolayı bir sayfa en fazla 30 kayıt alabilicek kapasitede ve 500 kayıdı tek bir sayfada toplayamıyorum. Bunun yerine 30 kayıtta bir döngü ile yeni bir pdf tablosu oluşturup, çekilen verileri döngü ile row oluşturarak yazmak.

<%  
  response.Buffer  
   
  Set Pdf = Server.CreateObject("Persits.Pdf")  
  Set Doc= Pdf.CreateDocument  
  Set Font = Doc.Fonts.LoadFromFile(Server.MapPath("Font/times.ttf"))  
     
  Set Baglan = Server.CreateObject("ADODB.Connection")  
  Baglan.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db.mdb"))   
   
  Set RS = Server.Createobject("ADODB.Recordset")  
  RS.open "Select * From Kullanicilar", Baglan, 1,3  
  RSSayi=RS.recordcount  
  RSSayiBol=RSSayi/30  
  totalPage=int(RSSayiBol)  
  if RSSayiBol>totalPage and RSSayiBol<(totalPage&",5") then totalPage=totalPage+1  
   
  For i = 1 To totalPage  
    Set Belge1 = Pdf.OpenDocument(  Server.MapPath("sablon/cikti.pdf") )  
    Doc.AppendDocument Belge1  
  Next  
  Dosya= Doc.Save( Server.MapPath("Temp/dsyeni4.pdf"), true )  
   
  '############################################################################################  
   
  RsDizi=rs.getrows  
   
  For ii=1 to totalpage  
    Set doc=Pdf.OpenDocument(  Server.MapPath("Temp/dsyeni4.pdf") )  
    Set Font = Doc.Fonts.LoadFromFile(Server.MapPath("Font/times.ttf"))  
    Set Page = Doc.Pages(ii)  
    RowSayisi=30  
    SutunSayisi=6  
      
      Set Table = doc.CreateTable("rows="&(RowSayisi+1)&"; cols="&SutunSayisi&"; width=460; height=300; border=0.1; cellborder=0.1; cellspacing=0; cellpadding=0")  
      Table.Font = font  
        
      Table.Rows(1).Cells(1).height = 40  
      Table.Rows(2).Cells(1).height = 40  
        
      Table(1, 1).AddText "TC NO", "color=&HFF0000;size=12;VAlignment=middle;Alignment=center;"  
      Table(1, 2).AddText "AD SOYAD", "size=12;VAlignment=middle;Alignment=center;"  
      Table(1, 3).AddText "DEVAMSIZ", "size=12;VAlignment=middle;Alignment=center;"  
      Table(1, 4).AddText "MUAF", "size=12;VAlignment=middle;Alignment=center;"  
      Table(1, 5).AddText "NOT", "size=12;VAlignment=middle;Alignment=center;"  
      Table(1, 6).AddText "DURUM", "size=12;VAlignment=middle;Alignment=center;"  
        
    for iii=1 to RowSayisi  
  '  response.Write((iii+1)&"<br>")  
      Table.Rows(iii+1).Cells(1).height = 15  
      Table(iii+1, 1).AddText RsDizi(0,iii-1), "size=12;VAlignment=top;Alignment=center;"  
      Table(iii+1, 2).AddText RsDizi(1,iii-1), "size=12;VAlignment=top;Alignment=center;"  
      Table(iii+1, 3).AddText RsDizi(2,iii-1), "size=12;VAlignment=top;Alignment=center;"  
      Table(iii+1, 4).AddText RsDizi(3,iii-1), "size=12;VAlignment=top;Alignment=center;"  
      Table(iii+1, 5).AddText "", "size=12;VAlignment=top;Alignment=center;"  
      Table(iii+1, 6).AddText "", "size=12;VAlignment=top;Alignment=center;"  
    next  
        
      page.Canvas.DrawTable Table, "x=65.35; y=656.5"  
  next  
   
  Dosya=Doc.Save( Server.MapPath("output/dsyeni4.pdf"), true )  
   
  %>

ASPPdf ile tabloda veri listeleyerek pdf çıktısı almak

Benzer içerikler