• 11-10-2012, 10:07:48
    #1
    Merhaba;
    Benim sorunum AspPdf yardımı ile database den çektiğim verili sayfamı komple pdf e dönüştürmek de yaşıyorum
    Kullandığım kod:
    <%
    musID= request("musID")
    teklifim = request("teklif")
    dim Pdf, Filename, doc, tarih
        Set Pdf = Server.CreateObject("Persits.Pdf")
        Set Doc = Pdf.CreateDocument 
        Doc.ImportFromUrl "http://www.xxxxxx.org/xxxxxx/cikti/cikti.asp?musID="&musID&"&teklif="&teklifim
    
        Filename = Doc.Save( Server.MapPath("cikti/" & teklifim & "_teklif.pdf"), true )
    
        Response.Write "Tamamlandı! Pdf Dosyasını İndirmek için <A HREF=cikti/" & Filename & ">Tıklayınız</A>"
    %>
    Pdf Dçkümanımı alıyorum ancak sayfam 1103px X 1560px olduğu için pdf hem teksayfa çıkmıyor hemde verilerde kayma yaparak çıkıyor
    bunu önlemek için biraz araştırma yaptım fakat uygulama yapamadım
    "When rendering HTML content on a page, AspPDF leaves 0.75" margins around the content area. That can be changed via the LeftMargin, RightMargin, TopMargin andBottomMargin parameters."
    Default olarak kenar boşlukları 0,75 miş ve ve parametreleri kullanarak ayarlaya biliyormuşum ama yapamadım

    yardımınızı istediğim konu bu 1103x1560px deki görüntüyü A4 e sığdırmak ve kenar boşluklarını 0px yapmak
    şimdiden teşekürler
  • 11-10-2012, 23:38:34
    #2
    ' A4 için ölçü buymuş:
    Set Page = Doc.Pages.Add(595.3, 841.9)

    marginleri ayarlamak içinde param komutlarını kullanıyorsun:

    Set Param = Pdf.CreateParam("x=10; y=20; width=100, height=500; Size=8; Alignment=right; color=red")
    Page.Canvas.DrawText "YAZILACAK_YAZI", Param, Font

    burda param kısmına LeftMargin, RightMargin, TopMargin BottomMargin ekleyecen.
    sanırsam şunun gibi bişiler:

    Set Param = Pdf.CreateParam("width=595.3, height=841.9; LeftMargin=0, RightMargin=0, TopMargin=0, BottomMargin=0)

    gibi bişiler yapacan. Param.Add komutu ile de kullanılıyor.

    (daha önce hiç kullanmadım, gece gece de valla bu kadar bakabildim.)
  • 12-10-2012, 16:37:51
    #3
    Teşekürler anka81 verdiğin bilgiler için
    ancak ben param kullanmadığım için söylediklerini uygulayamadım

    deneme yanılma yöntemi ile çözüme kavuştu

    <%
    musID= request("musID")
    teklifim = request("teklif")
    dim Pdf, Filename, doc, tarih
        Set Pdf = Server.CreateObject("Persits.Pdf")
        Set Doc = Pdf.CreateDocument 
        Doc.ImportFromUrl "http://www.xxxxx.org/xxxxx/cikti/cikti.asp?musID="&musID&"&teklif="&teklifim,"LeftMargin=30,RightMargin=30,TopMargin=0,BottomMargin=0,Scale=0.67"
        Filename = Doc.Save( Server.MapPath("cikti/" & teklifim & "_teklif.pdf"), false )
    
    
        Response.Write "Tamamlandı! Pdf Dosyasını İndirmek için <A HREF=cikti/" & Filename & ">Tıklayınız</A>"
    
    
    %>
    Doc.ImportFromUrl "www.domain.com/fpdolacaksayfa.asp","LeftMargin=30, RightMargin=30, TopMargin=0, BottomMargin=0, Scale=0.67"

    Şeklinde istediğimiz parametreyi girebiliyoruz
    Ayrıca aynı bölüme Pagewight, Pageheight, ekleye biliyoruz.
    Scale default olarak 1 ben 0,67 diyerek %68 küçülttüm

    Belki diğer arkadaşlara yardımcı olur.
  • 13-10-2012, 09:46:31
    #4
    kodu paylaşman güzel olmuş arkdaşların ilerde lazım olma ihtimali var ben her ihtimale karşın kodu aldım sağol
  • 17-10-2012, 12:51:05
    #5
    fsahinoglu adlı üyeden alıntı: mesajı görüntüle
    kodu paylaşman güzel olmuş arkdaşların ilerde lazım olma ihtimali var ben her ihtimale karşın kodu aldım sağol
    evet paylaşmak istedim bazı arkadaşlar nedense bu kadarcık bilgiyi bile paraya dökme cabasında onlara karşı yayınla gereksinimi duydum