次のような vb.net にサブがあります。
Public Shared f_cb As BaseFont = BaseFont.CreateFont(Directory.GetCurrentDirectory() + "\plantillas\fonts\trebucbd.ttf", BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
Public Shared f_cn As BaseFont = BaseFont.CreateFont(Directory.GetCurrentDirectory() + "\plantillas\fonts\trebuc.ttf", BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
Public Shared Sub GenPDF()
Try
Using fs As System.IO.FileStream = New FileStream(Directory.GetCurrentDirectory() + "\te\TEST.pdf", FileMode.Create)
Dim document As New Document(PageSize.A4, 25, 25, 30, 1)
Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
document.AddTitle("test")
document.Open()
Dim cb As PdfContentByte = writer.DirectContent
Dim png As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(Current.Server.MapPath("Images/logo.jpg"))
png.ScaleAbsolute(75, 52)
png.SetAbsolutePosition(40, 770)
cb.AddImage(png)
cb.BeginText()
Dim left_margin As Integer = 40
Dim top_margin As Integer = 750
write(cb, "Streets S.R.L.", left_margin, top_margin, f_cb, 10)
write(cb, "Av. 900, C.A.B.A. (1001), Peru", left_margin, top_margin - 12, f_cn, 8)
write(cb, "Tel: 4300-2147 - Fax: 4300-2148", left_margin, top_margin - 24, f_cn, 8)
write(cb, "C.U.I.T. 20-30602227-0", left_margin, top_margin - 36, f_cn, 10)
write(cb, "I.V.A.", left_margin, top_margin - 48, f_cn, 10)
cb.EndText()
document.Close()
writer.Close()
fs.Close()
End Using
Catch ex As Exception
Throw ex
End Try
End Sub
Public Shared Sub write(ByVal cb As PdfContentByte, ByVal Text As String, ByVal X As Integer, ByVal Y As Integer, ByVal font As BaseFont, ByVal Size As Integer)
cb.SetFontAndSize(font, Size)
cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, Text, X, Y, 0)
End Sub
これで問題なく動作します。作成済みの pdf に書き込みたいのですが、vb.net のアナログが見つかりません。ネットみたい?