Hello everyone, I want to share a method to be able to print or save as pdf a table from B4XTable.
This code is very basic and can be adjusted for any need.
You are free to play with its possibilities.
In this case you will need the following libraries:
-B4XTable 1.21+
-Printing 1.0+ (Link)
How to Use:
Thanks for viewing this post, and any tips or other ways to do this code can be shared below.`
This code is very basic and can be adjusted for any need.
You are free to play with its possibilities.
In this case you will need the following libraries:
-B4XTable 1.21+
-Printing 1.0+ (Link)
B4X:
Public Sub PrintTable(Table As B4XTable, FileName As String)
Dim printer As Printer
printer.Initialize("printer")
Dim PrintString As String = $"
<!DOCTYPE html>
<html>
<head>
<style>
Table {
font-family: arial, sans-serif;
border-collapse: collapse;
width: 100%;
}
td, th {
border: 1px solid #dddddd;
text-align: left;
padding: 8px;
}
tr:nth-child(even) {
background-color: #dddddd;
}
</style>
</head>
<body>
<h2>File Name: ${FileName}</h2>
<h4>Date: ${DateUtils.TicksToString(DateTime.Now)}</h4>
<Table><tr>
"$
For Each Column As B4XTableColumn In Table.Columns
PrintString = PrintString & $"<th>${Column.Title}</th>${CRLF}"$
Next
PrintString = PrintString & "</tr>"
For i = 1 To Table.Size
PrintString = PrintString & "<tr>"
For Each Column As B4XTableColumn In Table.Columns
Dim Row As Object = Table.GetRow(i).Get(Column.Title)
PrintString = PrintString & $"<td>${Row}</td>${CRLF}"$
Next
PrintString = PrintString & "</tr>"
Next
PrintString = PrintString & "</table>"
printer.PrintHtml("job", $"${PrintString}"$)
End SubHow to Use:
It's very easy, once you create the table and load the data, you can add a button to print the table. It's just assigning the table you want to print the function.
How to Use:
PrintTable(B4XTable, FileName)- B4XTable = Your table
- FileName = The name you want to show
Thanks for viewing this post, and any tips or other ways to do this code can be shared below.`
