تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود التعامل مع مكتبة itextsharp
#1
السلام عليكم ورحمة الله وبركاتة


ارجور المساعدة بكود التعامل مع مكتبة itextsharp 


لدي برنامج يقوم بتوليد ارقام  واريد طباعة هذة الارقام في ملف pdf كل مرة في نقطة محددة من الصفحة
الرد }}}}
تم الشكر بواسطة:
#2

وعليكم السلام ورحمة الله وبركاته
يبدو لي في مثل حالتك الامر لا يحتاج اكثر من
ReportViewer
تلك المكتبة جربتها ولم تعجبني
هذا الكود لانشاء ملف واستبداله بملف جديد ضعه في حدث
Click

PHP كود :
Dim oldFile As String "SomePath/Existing.pdf"
Dim newFile As String "SomePath/New.pdf"

' Create reader
Dim reader As New PdfReader(oldFile)
Dim size As Rectangle = reader.GetPageSizeWithRotation(1)
Dim document As New Document(size)

Create the writer
Dim fs 
As New FileStream(newFileFileMode.CreateFileAccess.Write)
Dim writer As PdfWriter PdfWriter.GetInstance(documentfs)
document.Open()
Dim cb As PdfContentByte writer.DirectContent

' Set the font, color and size properties for writing text to the PDF
Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
cb.SetColorFill(BaseColor.DARK_GRAY)
cb.SetFontAndSize(bf, 8)

Write text in the PDF
cb
.BeginText()
Dim text As String "Some text here"

' Set the alignment and coordinates here
cb.ShowTextAligned(1, text, 520, 640, 0)
cb.EndText()

Put the text on a new page in the PDF 
Dim page 
As PdfImportedPage writer.GetImportedPage(reader1)
cb.AddTemplate(page00)

' Close the objects
document.Close()
fs.Close()
writer.Close()
reader.Close() 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: saad mahyoub
#3
(31-08-16, 12:28 AM)أبو عمر كتب :

وعليكم السلام ورحمة الله وبركاته
يبدو لي في مثل حالتك الامر لا يحتاج اكثر من
ReportViewer
تلك المكتبة جربتها ولم تعجبني
هذا الكود لانشاء ملف واستبداله بملف جديد ضعه في حدث
Click

PHP كود :
Dim oldFile As String "SomePath/Existing.pdf"
Dim newFile As String "SomePath/New.pdf"

' Create reader
Dim reader As New PdfReader(oldFile)
Dim size As Rectangle = reader.GetPageSizeWithRotation(1)
Dim document As New Document(size)

Create the writer
Dim fs 
As New FileStream(newFileFileMode.CreateFileAccess.Write)
Dim writer As PdfWriter PdfWriter.GetInstance(documentfs)
document.Open()
Dim cb As PdfContentByte writer.DirectContent

' Set the font, color and size properties for writing text to the PDF
Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.HELVETICA, BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
cb.SetColorFill(BaseColor.DARK_GRAY)
cb.SetFontAndSize(bf, 8)

Write text in the PDF
cb
.BeginText()
Dim text As String "Some text here"

' Set the alignment and coordinates here
cb.ShowTextAligned(1, text, 520, 640, 0)
cb.EndText()

Put the text on a new page in the PDF 
Dim page 
As PdfImportedPage writer.GetImportedPage(reader1)
cb.AddTemplate(page00)

' Close the objects
document.Close()
fs.Close()
writer.Close()
reader.Close() 
الف شكر لك اخي ابو عمر  ... جاري التجربة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up [كود] مكتبة أكواد مفيدة جدا Program KSA 1 220 10-11-16, 10:37 AM
آخر رد: ممدوح
Star [VB.NET] مكتبة الاكواد :) mr.am.he 12 3,420 15-10-16, 12:35 PM
آخر رد: startqw17
Bug احدى طرق التعامل مع شجرة العرض TreeView أبو عمر 4 878 28-08-16, 11:13 PM
آخر رد: adad
  [كود] مكتبة الثيمات لتجميل المشاريع 2014 مبرمج أوتار 21 15,416 29-05-16, 12:37 AM
آخر رد: CLARO
  المرجع الكامل فى ( التعامل مع النصوص ) ali.alfoly 13 6,439 31-01-16, 02:08 AM
آخر رد: otman_bel
  [سؤال] التعامل مع تكست بوكس moha11 5 812 12-09-15, 10:05 AM
آخر رد: moha11

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم