A detailed one please?

I think this is the right place to ask for a detailed tutorial on printing, right?
I have problems with printing. I can't get passed a blank pdf and a configure window!
If anyone could help, it would be deeply apreciated!
Thanx!

Berkut said

I think this is the right place to ask for a detailed tutorial on printing, right?
I have problems with printing. I can't get passed a blank pdf and a configure window!

From “Printing tutorial”, March 29th 2026, 2:56 PM

My understanding is that you want to print a pdf file and want a turorial.
13th of April I will release Gambas Learning Guide Book 2.

In there you learn to build a PDF viewer and how to print a PDF.
It is a very detailed explanation that should help you get started.

But that will not help you right now, so I'll post some code in my next reply as somehow I can't add a Gambas code box right now …


 

This forum is for tutorials for the website and forum itself.

I'll move you over to the proper Gambas Programming forum.

show us your code to get the blank PDF … then we can help you with corrections .

Ok, now I can write a code example. Seems being in the wrong part of the forum prevented that.

Code (gambas)

1. Private $hPrinter As Printer
2. Private $hPdfFile As PdfDocument
3.  
4. Public Sub Form_Open()
5.  
6.   $hPrinter = New Printer As "MyPrinter"
7.   $hPdfFile = New PdfDocument("/path/to/pdf/myfile.pdf") As "MyPdfFile"
8.  
9. End
10.  
11. Public Sub btnPrint_Click()
12.  
13.   If Not $hPrinter.Configure() Then
14.     $hPrinter.Print
15.   Endif
16.  
17. End
18.  
19. Public Sub MyPrinter_Begin()
20.  
21.   Inc Application.Busy
22.  
23.   '--set the number of pages for the printer object--
24.   $hPrinter.Count = $hPdfFile.Count
25.   $hPrinter.FullPage = True
26.   $hPrinter.Resolution = 150
27.  
28. End
29.  
30. '--run once for each page
31. Public Sub MyPrinter_Draw()
32.  
33.   Dim hPage As Image
34.   Dim fWidth, fHeight As Float
35.  
36.   '--render the page--
37.   fWidth = $hPrinter.PaperWidth / 25.4 * $hPrinter.Resolution
38.   fHeight = $hPrinter.PaperHeight / 25.4 * $hPrinter.Resolution
39.   hPage = $hPdfFile[$hPrinter.Page - 1].Render(0, 0, fWidth, fHeight, $hPdfFile.Rotation, $hPrinter.Resolution)
40.  
41.   '--print the page--
42.   Paint.DrawImage(hPage, 0, 0, Paint.W, Paint.H)
43.  
44. End
45.  
46. Public Sub MyPrinter_End()
47.  
48.   Dec Application.Busy
49.  
50. End
51.  
52.  

Replace "path/to/pdf/mypdf.pdf" with a path to an actual PDF file.
Add a Button named btnPrint for the printing code.

Edit: You need gb.poppler component selected for doing above with a PDF file!

Thank you all!
Sorry for posting in the wrong place.
Actually, by saying "detailed", I meant a tutorial on printing anything (text, fonts, graphics) from within Gambas! I suppose though this must be a long one!
But a way to print .pdf is a good start! I'll wait for your tutorial eagerly! Meanwhile I'll try your code.
Much obliged.

The following is not my code. I was just trying to get it to work. (I don't even remember where I got it!)
Sorry it's not formatted. I don't know how to do it here yet!
——————————
  ' Gambas class file

Public Sub Form_Open()

    Me.Center

End

Public Sub btnPrint_Click()

    If ptrPrinter.Configure() Then Return
    Me.Enabled = False
    Inc Application.Busy
    ptrPrinter.Print
    Dec Application.Busy
    Me.Enabled = True

End

Public Sub prtPrinter_Begin()

    ptrPrinter.Count = 1
    ptrPrinter.A4
    txtArea.Text &= "Set number of pages to 1\n"
    txtArea.Text &= "Begin printing\n"

End

Public Sub prtPrinter_Paginate()

    txtArea.Text &= "Begin paginate\n"
    ptrPrinter.FullPage = True

End

Public Sub prtPrinter_Draw()

    Dim X As Float
    Dim Y As Float
    Dim W As Float
    Dim H As Float
    Dim wFactor As Float
    Dim hFactor As Float

    txtArea.Text &= "Begin Draw\n"
    'Set scale
    wFactor = Paint.Width / ptrPrinter.PaperWidth
    hFactor = Paint.Height / ptrPrinter.PaperHeight
    Paint.Scale(wFactor, hFactor)
    'Set Color to red
    Paint.Brush = Paint.Color(Color.RGB(0, 0, 0, 0))
    'Set line width
    Paint.LineWidth = 0.45
    'Set X,Y origin to 0,0
    X = 0
    Y = 0

    'Set Width, Height
    W = ptrPrinter.PaperWidth - Paint.LineWidth
    H = ptrPrinter.PaperHeight - Paint.LineWidth
    'Draw a rectangle
    Paint.Rectangle(X, Y, W, H)
    'Write it on paper
    Paint.Stroke

    'Write text to paper
    Paint.Font.Name = "Times New Roman"
    Paint.Font.Size = 12 * (Desktop.Resolution / ptrPrinter.Resolution)
    Paint.Text("Hello world!", 20, 20)
    Paint.Fill

End

Public Sub prtPrinter_End()

    txtArea.Text &= "End printing\n"

End

 

Hi,

It is not that much complicated, but you have to find out by using the "Comcode add tag".

Click on it and find "code" under "code tags"
There you can decide which type of code ("Gambas,…")
if you like line numbered etc.
see here:


Regards,
Yogi

There are 2 example programs on the Gambas Farm that might help, one written by me!