Stampare un file PDF

ATTENZIONE !

IL COMPONENTE GB.PDF E' ORMAI OBSOLETO !

Mostreremo di seguito due opzioni per stampare un file PDF.

Stampa con le sole funzioni di Gambas

Per stampare in modo elementare un file PDF con le sole funzioni di Gambas, possiamo utilizzare la seguente semplice modalità, per la quale sarà necessario:

• attivare il componente gb.poppler;
• inserire sul Form l'oggetto speciale Printer;
• inserire sul Form un Button.

Private im As Image  
  
 
Public Sub Form_Open()  
   
 Dim p As PdfDocument
 
' Carica il file PDF del documento da stampare:
 p = New PdfDocument("/percorso/del/file.pdf")
 
' Ottiene un'immagine della prima pagina (indice zero) del documento pdf caricato:
 im = p[0].Render(0, 0, p[0].W, p[0].H, 0, p.Resolution)
  
End  
 
 
Public Sub Button1_Click()  
 
 With Printer1  
   .Configure    ' Opzionale - apre la finestra di dialogo se si vuole impostare la stampante
   .Orientation = Printer.Portrait    ' Opzionale: imposta la modalità di stampa "Verticale" (oppure "Orizzontale"). 
   .Paper = Printer.A4     ' Opzionale - imposta il tipo di carta 
   .Resolution = Desktop.Resolution   ' Opzionale: modificando il valore di questa proprietà si modificano le dimensioni di stampa 
   .Print    ' Effettua la stampa su foglio.
 End With
 
End  
 
 
Public Sub Printer1_Draw()    ' Questo evento è richiamato per ogni pagina da stampare.
 
' Queste sono le informazioni di ciò che si andrà a stampare:
 With Paint  
   .DrawImage(im, 0, 0, im.W, im.H)  
   .Fill  
 End With  
 
End

Stampare un documento PDF formato da due o più pagine

Se il documento PDF è composto da due o più pagine potremo adottare il seguente codice:

Private pdf As PdfDocument
Private pc As New Picture[]
Private j As Short


Public Sub Button1_Click()

 Dim b As Byte

  With pdf
    .Open("/percorso/del/file.pdf")
    If .Ready = True Then
' Convertiamo ogni pagina del documento in una "Image",
' e poi l' "image" in una "Picture"...  
    For b = 1 To pdf.Count
' Ogni nuova "Picture" sarà posta in un elemento
' di una variabile array di tipo "Picture": 
      pc.Add(pdf[b].Image.Picture)
    Next

   With printer = New Printer As "printer"
    .Resolution = Desktop.Resolution
    .Configure
    .Orientation = 0
    .Paper = 2
    .Print
  End With

End


Public Sub printer_Begin()

' Diaciamo all'oggetto Printer di stampare un numero di pagine
' pari al numero complessivo delle pagine di cui è composto il documento pdf:  
 Printer.Count = pdf.Count

End


Public Sub printer_Draw()

' Quindi stampiamo ciascuna pagina specificando le sue dimensioni e coordinate:  
 With Paint
   .DrawPicture(pc[j], PictureBox1.X, PictureBox1.Y, pc[j].W, pc[j].H)
   .Fill 
 End With
 
 Inc j

End

Utilizzare il codice HTML

Quest'altra modalità prevede una procedura mediata per giungere alla stampa del file PDF. Infatti il codice HTML aprirà il file PDF all'interno del programma predefinito di lettura dei file PDF. Da questo programma, poi, si procederà alla stampa.

Faremo uso di un MessageBox per contenere il codice HTML:

Public Sub Button1_Click()

  Message.Info("<A href=/percorso/del/file.pdf>Apri file PDF")

End