ejemplo oPDF.dll

Private Sub cmdGenerar_Click()

Dim oDoc As cPDF
Dim dblX As Double
Dim dblY As Double
Dim Angle As Double
Dim Pi As Double

Set oDoc = New cPDF'Creo el documento
If Not oDoc.PDFCreate(App.Path & "\Prueba.pdf") Then
Exit Sub
End If


'Defino los fuentes
oDoc.Fonts.Add "F1", Times_Italic,WinAnsiEncoding
oDoc.Fonts.Add "F2", Helvetica, WinAnsiEncoding

'Cargo las imagenes, para comprimir necesita zlib.dll (Libre)
oDoc.LoadImage Image1, "Logo", False, True
oDoc.LoadImageImage1, "LogoGris", True, True

oDoc.NewPage A4_Vertical

'Muestro la imagen
oDoc.WImage 100, 100, 20, 20, "Logo"
oDoc.WImage 100, 200, 40, 40, "Logo"
oDoc.WImage100, 300, 40, 40, "LogoGris", 30


'Ejemplo de circulos
'DashArray = "Puntos On, Puntos Off ...)
oDoc.SetLineFormat 5, , , 0, "[10 2]"
For dblX = 10 To 50 Step 10oDoc.WCircle 100, 200, dblX
Next

'Ejemplo de Lineas ( si no especifico startX y StartY coge la ultima posicion )
oDoc.SetLineFormat 10, RoundCap, RoundJoin
oDoc.MoveTo 200, 200oDoc.WLineTo 250, 200
oDoc.WLineTo 250, 250
oDoc.LineStroke

'Ejemplo de Lineas ( si no especifico startX y StartY coge la ultima posicion )
oDoc.SetLineFormat 10,ProyectingSquareCap, BevelJoin
oDoc.MoveTo 300, 200
oDoc.WLineTo 350, 200
oDoc.WLineTo 350, 250
oDoc.LineStroke



'Ejemplo de curvas, Canvas en radianes, quien las entienda que lascompre ;)
oDoc.MoveTo 400, 200
oDoc.WCurve 450, 200, 451, 250, 449, 250
oDoc.LineStroke

'Varios ejemplos de caja de texto
oDoc.WTextBox 300, 10, 100, 70, "Esta es una caja detexto con borde magenta", "F1", 10, , , , 1, vbMagenta
oDoc.WTextBox 300, 110, 100, 70, "Esta es una caja de texto con borde negro alineada a la derecha", "F1", 10, hRight, , , 1, vbBlack...