Android Question [SOLVED] How to create a pdf table using the Printer library?

N

noeleon

Active Member
Licensed User
Hello.
How can I create a table in a pdf using the Printer library?
A simple drawText won't do because the "cells" may contain long text and must not overlap each other.
I had a project years ago where I drew each cell to a label and used its snapshot, which is a bitmap, to assemble a table.
I really need the texts to be selectable.
Thanks.
 

Attachments

  • pdftable.zip
    11.1 KB · Views: 77
Last edited:
Sort by date Sort by votes
N

noeleon

Active Member
Licensed User
I attached a sample project.
The label is drawn to the pdf and is selectable but I don't know how to set its coordinates, it is at the top left corner of the page
 
Last edited:
Upvote 0
N

noeleon

Active Member
Licensed User
I tried that but I find it very confusing. The y coordinate starts at the bottom. For example, the coordinates 20,30 is 20 from left and 30 from the bottom. So when I write text like a number per line in a loop it would appear on the page as
3
2
1
But when I copy the text and paste it somewhere it is
1
2
3
 
Upvote 0
E

emexes

Expert
Licensed User
noeleon said:
The y coordinate starts at the bottom.
Click to expand...

Yeah, I agree that doesn't help. I wrote a function to flip Y coordinates so that they are from the top:

B4X: 
Sub FlipY(Y As Float) As Float
    Return 297 - Y
End Sub

and then this routine to create a PDF from a supplied 2D String Array:

B4X: 
Private Sub PrintTable(NumRows As Int, NumCols As Int, Tbl(,) As String, X As Int, Y As Int, W As Int, H As Int)
    Dim pdf As cPDF
    pdf.Initialize("mm")
    
    pdf.pageAdd(pdf.pageSizeA4PortraitWidth, pdf.pageSizeA4PortraitHeight)

    pdf.sFont( _
        pdf.fontHelvetica, _
        pdf.fontBold, _
        12, _
        pdf.colorBlack _
    )
    
    Dim RowY(NumRows + 1) As Float
    For R = 0 To NumRows
        RowY(R) = Y + R / NumRows * H
        Log(R & TAB & RowY(R))
    Next
    
    Dim ColX(NumCols + 1) As Float
    For C = 0 To NumCols
        ColX(C) = X + C / NumCols * W
        Log(C & TAB & ColX(C))
    Next
    
    ColX(1) = ColX(1) - 10    'demo individual column widths

    'draw table grid
    For R = 0 To NumRows
        pdf.outLine(ColX(0), FlipY(RowY(R)), ColX(NumCols), FlipY(RowY(R)))
    Next
    For C = 0 To NumCols
        pdf.outLine(ColX(C), FlipY(RowY(0)), ColX(C), FlipY(RowY(NumRows)))
    Next

    'draw table contents
    For R = 0 To NumRows - 1
        For C = 0 To NumCols - 1
            pdf.outtext(ColX(C) + 2.0, FlipY(RowY(R) + 5.0), Tbl(R, C))
        Next
    Next
    
    'save to file with compression if data compressed are smaller
    savePDF(pdf,"test.pdf",pdf.CompressAlways)
    
    'open with default viewer
    openPDF("test.pdf")
End Sub

which, when tested with:

B4X: 
Dim NumRows As Int = 38
Dim NumCols As Int = 3

Dim Tbl(NumRows, NumCols) As String

For R = 0 To NumRows - 1
    For C = 0 To NumCols - 1
        Tbl(R, C) = "row " & (R + 1) & " col " & (C + 1)
        If C = 1 Then
            Tbl(R, C) = Tbl(R, C) & " " & "RandomWordString".SubString(Rnd(0, 17))
        End If
    Next
Next

PrintTable(NumRows, NumCols, Tbl, 20, 20, 180, 260)

produced the attached PDF file:

 

Attachments

  • test.pdf
    2 KB · Views: 95
Upvote 0
N

noeleon

Active Member
Licensed User
I wrote a function to flip Y coordinates so that they are from the top:
Click to expand...
Thank you @emexes for trying to help but for now I will have to stick to the Printing library because I also want to use a custom font.

I wonder if that's possible with the outRAW function. The documentation says it can do a lot more including creating a proper table. I hope spsp can bring more features to his library.
 
Upvote 0
E

emexes

Expert
Licensed User
noeleon said:
How can I create a table in a pdf using the Printer library?
Click to expand...

Just to clarify:

the Printing library has two ways of generating output:

PdfDocument
Printer

Which do you wish to use?

PdfDocument's line and text drawing methods look like they'll do the job:

B4X: 
dim pdf as PdfDocument
pdf.Initialize
pdf.StartPage(595, 842) 'A4 size
pdf.Canvas.DrawLine(2, 2, 593 , 840, Colors.Blue, 4)
pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30, Colors.Yellow, "CENTER")
pdf.FinishPage
 
Upvote 0
N

noeleon

Active Member
Licensed User
I think I finally got it. Just need to adjust the text sizes to fit long text
 

Attachments

  • pdftable v2.zip
    11 KB · Views: 71
Upvote 0
Solution
E

emexes

Expert
Licensed User
noeleon said:
Just need to adjust the text sizes to fit long text
Click to expand...

My only suggestion of consequence so far is to close the rectangle:

B4X: 
Sub drawRectangle(left As Int, top As Int, width As Int, height As Int)
    Path.Initialize(left, top)
    Path.LineTo(left, top+height)
    Path.LineTo(left+width, top+height)
    Path.LineTo(left+width, top)
    Path.LineTo(left, top)
    CV.DrawPath(Path, Colors.Black, False, 0.2)
End Sub

unless... is there a reason for having no border at the top of the table?
 
Upvote 0
E

emexes

Expert
Licensed User
Maybe do the cell drawing inside a loop rather than repeat it three times:

B4X: 
Sub createCellsRow(Texts() As String, Left As Double, Top As Double, Widths() As Double, Height As Double)
    Dim FirstCol As Int = 0    'should really be parameters
    Dim LastCol As Int = 2
    
    For Col = FirstCol To LastCol
        drawRectangle(Left, Top, Widths(Col), Height)
        CV.ClipPath(Path)
        CV.DrawText(Texts(Col), Left+1, Top + Height - 4, Typeface.DEFAULT, 5, Colors.Black, "LEFT")
        CV.RemoveClip
        Left = Left + Widths(Col)    'final column easier to do than to skip (might even be useful in future)
    Next
End Sub
 
Upvote 0
E

emexes

Expert
Licensed User
Is your table wider than one page, as in split across pages horizontally?

Split across pages vertically isn't so bad, but split both vertically and horizontally, that's a more interesting challenge. ?
 
Upvote 0
N

noeleon

Active Member
Licensed User
emexes said:
Is your table wider than one page, as in split across pages horizontally?

Split across pages vertically isn't so bad, but split both vertically and horizontally, that's a more interesting challenge. ?
Click to expand...
No. My table has about 20k rows. The cells are a little wider than my example but it would continue to the middle of the page then to the right side, and then to the next page. It would take 100 pages more or less.
 
Upvote 0
E

emexes

Expert
Licensed User
noeleon said:
My table has about 20k rows.
Click to expand...

That's a lot of rows.

noeleon said:
It would take 100 pages more or less.
Click to expand...

20000 rows / (11 inches x 8 lines/inch) = 228 pages

without taking into account margins and headings

good thing it's a pdf and not on paper ?

although... if it's not on paper, perhaps HTML might be more useable, eg can import directly into a spreadsheet no problem

or is there some auditability or archivability requirement?


ps a local computer supplier here used to print pricelists like this:


which were bordering on unusable even before my eyesight dropped to 6/6.
 
Upvote 0
You must log in or register to reply here.

Similar Threads

G
  • Question
Android Question How to create pdf with selectable text?
Replies
2
Views
1K
ghethro
G
P
  • Question
Android Question Creating a pdf file from the content of a clv
Replies
1
Views
1K
thinktank
T
  • Question
Android Question How to Implement Table View in PDF Document ?
Replies
4
Views
1K
Pravee7094
  • Question
Android Question Header and Footer when generating a PDF-file with Printing-Library
Replies
6
Views
1K
Hamied Abou Hulaikah
H
  • Question
Android Question [Solved] B4X Create PDF, (HTML?, RTF?) - Print - best/simplest solution?
Replies
0
Views
2K
MrKim
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…