Libreria Pdf Ejemplo Vb6 Wxpdfcom
Private Sub CmdArrow_Click()
Set pdf = New PdfDoc
pdf.SetFont "Arial", "", 10
pdf.AddPage (PORTRAIT)
pdf.Arrow 10, 10, 50, 50, 3, 10, 3pdf.Arrow 120, 120, 50, 50, 3, 10, 3
pdf.Arrow 40, 18, 55, 50, 1, 5, 3
pdf.Arrow 300, 120, 50, 60, 2, 3, 2
NombreDocumento = App.Path + "\arrows.pdf"
pdf.SaveAsFile (NombreDocumento)Set pdf = Nothing
End Sub
Private Sub HolaMundo_Click()
Set pdf = New PdfDoc
pdf.AddPage (1)
pdf.SetFont "Arial", "", 10
pdf.Cell 20, 10, "Hello World !", 0, 0, 1, 0, ""pdf.SaveAsFile (App.Path + "\helloworld.pdf")
Set pdf = Nothing
End Sub
Private Sub CmdBookmark_Click()
Set pdf = New PdfDoc
'pdf.Open
pdf.SetFont "Arial", "", 15'Page 1
pdf.AddPage PORTRAIT
pdf.Bookmark "Page 1", 0, -1
pdf.Bookmark "Paragraph 1", 1, -1
pdf.Cell 0, 6, "Paragraph 1", 0, 0, 0, 0, ""
pdf.ln 50
pdf.Bookmark "Paragraph2", 1, -1
pdf.Cell 0, 6, "Paragraph 2", 0, 0, 0, 0, ""
pdf.Annotate 60, 30, "First annotation on first page"
pdf.Annotate 60, 60, "Second annotation on first page"
'Page 2pdf.AddPage PORTRAIT
pdf.Bookmark "Page 2", 0, 0
pdf.Bookmark "Paragraph 3", 1, -1
pdf.Cell 0, 6, "Paragraph 3", 0, 0, 0, 0, ""
pdf.Annotate 60, 40, "First annotation on secondpage"
pdf.Annotate 90, 40, "Second annotation on second page"
pdf.SaveAsFile App.Path + "\bookmark.pdf"
Set pdf = Nothing
End Sub
Private Sub CmdHeading_Click()
Dim NumPag AsInteger
NombreDocumento = App.Path + "\headingtest.pdf"
Set pdf = New PdfDoc
pdf.AliasNbPages "{nb}"
pdf.SetFont "Arial", "", 10
pdf.Header (True)
pdf.SetY (1)pdf.Cell 15, 10, "This is a Header", 0, 0, 1, 0, ""
pdf.SetY (5)
pdf.Header (False)
pdf.FOOTER True
pdf.SetY -15
pdf.SetFont "Arial", "I", 8
pdf.SetTextColor 128, 0, 128...
Regístrate para leer el documento completo.