Rieccomi dopo tanto tempo di inattività per verificare una cosuccia che mi sta a cuore.
In un precedente post avevo inserito il seguente codice perfettamente funzionante per la stampa su un nuovo file pdf.
'IN DICHIARAZIONI: Private miaStampante As Printer
'
Public Sub bt_1_Click()
lancio_stampa
End
Public Sub lancio_stampa()
miaStampante = New Printer As "Stampa"
With miaStampante
.OutputFile = avvio.cartella & "prova.pdf"
.Orientation = 0
.GrayScale = True
.Paper = 2
.Print
End With
End
Public Sub stampa_Draw()
With Paint
.Font.Size = 10
.DrawText("Questa è la testata del documento", 500, 500)
.DrawText("secondo testo ", 500, 1300, 400, 500)
.DrawText("terzo testo ", 500, 1600, 400, 500)
.Fill
.End
End With
End
Sapete per cortesia se è possibile invece stampare informazioni aggiuntive scrivendo nelle parti da riempire di un file pdf esistente?
Ringrazio anticipatamente per la vostra pazienza.
.... è possibile invece stampare informazioni aggiuntive scrivendo nelle parti da riempire di un file pdf esistente?
A mio parere è agevolmente fattibile.
Attivando il componente gb.pdf, è sufficiente caricare il file pdf esistente e convertirlo in una Image:
Dim pdf As New PdfDocument
Dim im As Image
With pdf
' Carichiamo il file PDF del documento da mostrare:
.Open("/percorso/del/file.pdf")
' Se il file pdf è stato caricato correttamente...
If .Ready Then
' ...allora convertiamo la prima pagina ("indice" delle pagine = 1) in una "Image":
im = pdf[1].Image
Else
Message.Error("<FONT color=darkred><B>Errore nel caricamento del file PDF !")
Return
Endif
End With
Quindi utilizzare tutte le funzioni e risorse applicabili su una Image.