B4J Question help in creating a PDF file

[Lucas Siqueira]

I needed to create a pdf file with an image and some lines of text, I already used the jPDFjet example, but it does not work from the error ...
https://www.b4x.com/android/forum/threads/jpdfjet.37842/

Can someone save me?

 

[codie01]

Hi I have no issues, The following is sample code as done in my ABMaterial (Which rocks) website.

Step 1 create the Document Object

    Dim PDFjetPDF1 As PDFjetPDF=CreateBasePDFDocument
   
    Dim PDFPage As PDFjetPage
    PDFPage.Initialize(PDFjetPDF1, PDFjetConstants1.PageSize.Executive_PORTRAIT)
   
    Dim PDFFont1 As PDFjetFont
    PDFFont1.Initialize(PDFjetPDF1, PDFjetConstants1.CoreFont.HELVETICA)
    PDFFont1.SetSize(45)

    Dim PDFFont2 As PDFjetFont
    PDFFont2.Initialize(PDFjetPDF1, PDFjetConstants1.CoreFont.HELVETICA_BOLD)
    PDFFont2.SetSize(75)
   
    Dim PDFFont2 As PDFjetFont
    PDFFont2.Initialize(PDFjetPDF1, PDFjetConstants1.CoreFont.HELVETICA_BOLD)
    PDFFont2.SetSize(75)
   
    AddTextCentered(PDFPage,PDFFont1,LabelDate,40)
    AddTextCentered(PDFPage,PDFFont1,labelContract,90)
    AddTextCentered(PDFPage,PDFFont2,LabelTypeCode,160)
    AddTextCentered(PDFPage,PDFFont2,LabelTypeSize,245)
    AddTextCentered(PDFPage,PDFFont1,LabelTypeName,310)
   
    PDFjetPDF1.Close

Step 2 Create the document "DO NOT CHANGE THE NAME OF THIS SUB"

Sub CreateBasePDFDocument As PDFjetPDF
    Dim PDFDestination As OutputStream
    PDFDestination=File.OpenOutput(File.DirApp, itemTakesku & ".pdf", False)
    'PDFDestination=File.OpenOutput(File.DirApp, itemTakesku & ".pdf", False)

    PDFjetPDF1.Initialize("PDFjetPDF1", PDFDestination)
    PDFjetPDF1.SetAuthor(myUsername)
    PDFjetPDF1.SetSubject("Shelflabel")
    PDFjetPDF1.SetTitle("shelflabel")
   
    Return PDFjetPDF1
End Sub

Step Three, Sub called on PDFjetPD1.Close "DO NOT CHANGE THE NAME OF THIS SUB" you can test for creation or do something else as I have

[Code]
Sub PDFjetPDF1_CloseComplete(Success As Boolean)
    If Success Then
        page.ShowModalSheet("myModalPDF")
        Dim myModalPDF As ABMModalSheet = page.ModalSheet("myModalPDF")
        Dim myPDF1 As ABMPDFViewer = myModalPDF.Content.Component("pdf")
        myPDF1.SetDocument(File.DirApp & itemTakesku & ".pdf")
        myModalPDF.Refresh
    Else
        Log("An error has occurred and creation of the PDF document has failed")
    End If
    Return
End Sub

Kind Regards,
Philip

 

[Lucas Siqueira]

Hi I have no issues, The following is sample code as done in my ABMaterial (Which rocks) website.

Step 1 create the Document Object

    Dim PDFjetPDF1 As PDFjetPDF=CreateBasePDFDocument
  
    Dim PDFPage As PDFjetPage
    PDFPage.Initialize(PDFjetPDF1, PDFjetConstants1.PageSize.Executive_PORTRAIT)
  
    Dim PDFFont1 As PDFjetFont
    PDFFont1.Initialize(PDFjetPDF1, PDFjetConstants1.CoreFont.HELVETICA)
    PDFFont1.SetSize(45)

    Dim PDFFont2 As PDFjetFont
    PDFFont2.Initialize(PDFjetPDF1, PDFjetConstants1.CoreFont.HELVETICA_BOLD)
    PDFFont2.SetSize(75)
  
    Dim PDFFont2 As PDFjetFont
    PDFFont2.Initialize(PDFjetPDF1, PDFjetConstants1.CoreFont.HELVETICA_BOLD)
    PDFFont2.SetSize(75)
  
    AddTextCentered(PDFPage,PDFFont1,LabelDate,40)
    AddTextCentered(PDFPage,PDFFont1,labelContract,90)
    AddTextCentered(PDFPage,PDFFont2,LabelTypeCode,160)
    AddTextCentered(PDFPage,PDFFont2,LabelTypeSize,245)
    AddTextCentered(PDFPage,PDFFont1,LabelTypeName,310)
  
    PDFjetPDF1.Close

Step 2 Create the document "DO NOT CHANGE THE NAME OF THIS SUB"

Sub CreateBasePDFDocument As PDFjetPDF
    Dim PDFDestination As OutputStream
    PDFDestination=File.OpenOutput(File.DirApp, itemTakesku & ".pdf", False)
    'PDFDestination=File.OpenOutput(File.DirApp, itemTakesku & ".pdf", False)

    PDFjetPDF1.Initialize("PDFjetPDF1", PDFDestination)
    PDFjetPDF1.SetAuthor(myUsername)
    PDFjetPDF1.SetSubject("Shelflabel")
    PDFjetPDF1.SetTitle("shelflabel")
  
    Return PDFjetPDF1
End Sub

Step Three, Sub called on PDFjetPD1.Close "DO NOT CHANGE THE NAME OF THIS SUB" you can test for creation or do something else as I have

[Code]
Sub PDFjetPDF1_CloseComplete(Success As Boolean)
    If Success Then
        page.ShowModalSheet("myModalPDF")
        Dim myModalPDF As ABMModalSheet = page.ModalSheet("myModalPDF")
        Dim myPDF1 As ABMPDFViewer = myModalPDF.Content.Component("pdf")
        myPDF1.SetDocument(File.DirApp & itemTakesku & ".pdf")
        myModalPDF.Refresh
    Else
        Log("An error has occurred and creation of the PDF document has failed")
    End If
    Return
End Sub

Kind Regards,
Philip

Many thanks Philip, but I'm still in error ...
could you take a look at my project or send me a working project?

I'm sending my project here and the error photo, my library photo too ...

 

[codie01]

Hi Lucas,

Can you upload your project here and I shall take a look at it.

Philip

 

[Lucas Siqueira]

Hi Lucas,

Can you upload your project here and I shall take a look at it.

Philip

sorry forgot to attach

 

[codie01]

Fixed and working as attached

 

[Lucas Siqueira]

Fixed and working as attached

Still giving error
you can send me the libraries jPDFjet.jar, jPDFjet.xml, jPDFjet.html and also PDFjet.jar, which is what this problem is giving to my machine ...
I'm the latest version of B4J ...

 

[Harris]

That same NoSuchMethodError Font.setSize(F)V was previously reported last week I believe...

 

[Lucas Siqueira]

That same NoSuchMethodError Font.setSize(F)V was previously reported last week I believe...

you can send me the libraries jPDFjet.jar, jPDFjet.xml, jPDFjet.html and also PDFjet.jar

 

[codie01]

Libs as requested

 

[Lucas Siqueira]

Libs as requested

It worked perfectly, thank you so much!

you saved me!

This will help a lot of people who need to generate pdf files!

Many thanks Philip (Codie01)



Attached is the pdf generated by the font that you have set, using the files you just received from sending me!
Thank you!

 

[codie01]

Well Done and Congratulations Lucas, glad I could help.