DrawTextBoxMatrix

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,
I just purchased the Quick PDF library and am experimenting with it.  Version 9.15 introduced the DrawTextBoxMatrix function.  The following test program (VBA in MS Access) generates a pdf with the DrawText function and the DrawTextBox function producing visible results.  The DrawTextBoxMatrix does not produce a visible result.  The messagbox indicates that the DrawTextBoxMatrix returns a result of 1.  Am I missing something?

Test Program:

Sub MatrixTest()

    Dim folder, fname As String
    folder = CurrentProject.path & "\"

    fname = "Matrix Test.pdf"

    Dim xpdf As DebenuPDFLibraryAX0915.PDFLibrary
    Dim hfont, result As Long
    Dim title As String
    Dim tw, ang1, ang2, m12, m21 As Double

    Set xpdf = CreateObject("DebenuPDFLibraryAX0915.PDFLibrary")
    If xpdf.UnlockKey("xxxxxxxxxxxxxxxxxxxxxxxxx") = 0 Then
        Exit Sub
    End If

    xpdf.SetOrigin (1)

    hfont = xpdf.AddStandardFont(4)

    title = "Matrix Test"
    xpdf.SetTextSize (24)
    tw = xpdf.GetTextWidth(title)
    Call xpdf.DrawText((xpdf.PageWidth - tw) / 2, 35, title)
    xpdf.SetTextSize (18)

    ang1 = 10
    ang2 = 20
    m12 = Tan(D2R(ang1))
    m21 = Tan(D2R(ang2))
    result = xpdf.DrawTextBoxMatrix(200, 50, "TextBoxMatrix", 0, 1, m12, m21, 1, 320, 100)
    Call xpdf.DrawTextBox(320, 300, 200, 50, "TextBox", 0)
    MsgBox ("Result is " + Str$(result))
    Call xpdf.SaveToFile(folder + fname)
    Set xpdf = Nothing

End Sub

Function D2R(ByVal deg As Double) As Double
    D2R = deg / 57.29578
End Function

Function R2D(ByVal rad As Double) As Double
    R2D = rad * 57.29578
End Function

Thanks,
Dennis