生成一個橫跨生成的pdf的橫向規則

我使用下面的代碼填充PDF文本。是否可以添加一行？或橫向PDF的橫向規則，所以我把文本分成幾部分？生成一個橫跨生成的pdf的橫向規則

Session("PDF") = Session("Hospital") + Environment.NewLine + Session("HospitalAddress") + Environment.NewLine + Session("HospitalCity") 

Dim myUniqueFileName = String.Format("{0}.pdf", random) 
    Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(Doc1, New FileStream(path & myUniqueFileName, FileMode.Create)) 

    Doc1.Open() 
    Dim test As String 
    test = Session("PDF") 
    Dim imagepath As String = Server.MapPath(".") & "/images/Header.png" 
    Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(imagepath) 
    image.ScalePercent(70.0F) 

    Doc1.Add(image) 
    Doc1.Add(New Paragraph(test)) 

    Doc1.Close()

來源

2013-07-22 user1342164

你要畫橫線是這樣的：

Dim cb As PdfContentByte = pdfWrite.DirectContent 

' Set thickness to 2.0, rather than 1.0 default 
cb.SetLineWidth(2F) 

' 1.0 = black; 0.0 = white 
cb.SetGrayStroke(0.95F) 

' Set x and y coordinates for points of line to draw between, numbers made up for this example 
cb.MoveTo(25, 50) 
cb.LineTo(400, 50) 
cb.Stroke()

來源

2013-07-22 18:08:18

謝謝，現在該行是在頁面的底部。我要更改哪個數字來移動它？ – user1342164

第二個值是y值。「Doc1.Top」會將您置於頁面的頂部，因此您需要減去任何空格來移動它。 –

謝謝你的幫助 – user1342164

生成一個橫跨生成的pdf的橫向規則

回答

相關問題