Stampare un file PDF - Cronologia

Vuott il 15:42, 16 set 2024

2024-09-16T15:42:49Z

← Versione meno recente		Versione delle 09:42, 16 set 2024
Riga 1:		Riga 1:
	Mostreremo di seguito due opzioni per stampare un file PDF.		Mostreremo di seguito due opzioni per stampare un file PDF (ossia il contenuto grafico/testuale di un file PDF).

	==Stampa con le risorse del Componente gb.poppler==		==Stampa con le risorse del Componente gb.poppler==

Vuott il 15:45, 4 lug 2024

2024-07-04T15:45:57Z

← Versione meno recente		Versione delle 09:45, 4 lug 2024
Riga 9:		Riga 9:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim p As PdfDocument		Dim p As PdfDocument

	<FONT color=gray>' ''Carica il file PDF del documento da stampare:''</font>		<FONT color=gray>' ''Carica il file PDF del documento da stampare:''</font>
	p = New PdfDocument("<FONT color=~~gray~~>''/percorso/del/file.pdf''</font>")		p = New PdfDocument("<FONT color=darkgreen>''/percorso/del/file.pdf''</font>")

	<FONT color=gray>' ''Ottiene un'immagine della prima pagina (indice zero) del documento pdf caricato:''</font>		<FONT color=gray>' ''Ottiene un'immagine della prima pagina (indice zero) del documento pdf caricato:''</font>
	im = p[0].Render(0, 0, p[0].W, p[0].H, 0, p.Resolution)		im = p[0].Render(0, 0, p[0].W, p[0].H, 0, p.Resolution)

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	With Printer1		With Printer1
Riga 32:		Riga 32:
	End With		End With

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Printer1_Draw() <FONT color=gray>' ''Questo evento è richiamato per ogni pagina da stampare.''</font>		Public Sub Printer1_Draw() <FONT color=gray>' ''Questo evento è richiamato per ogni pagina da stampare.''</font>

	<FONT color=gray>' ''Queste sono le informazioni di ciò che si andrà a stampare:''</font>		<FONT color=gray>' ''Queste sono le informazioni di ciò che si andrà a stampare:''</font>
Riga 43:		Riga 43:
	End With		End With

	~~'''~~End~~'''~~		End


Riga 53:		Riga 53:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim c As Short		Dim c As Short

	<FONT color=gray>' ''Carica il file PDF del documento da stampare:''</font>		<FONT color=gray>' ''Carica il file PDF del documento da stampare:''</font>
	p = New PdfDocument("<FONT color=~~gray~~>''/percorso/del/file.pdf''</font>")		p = New PdfDocument("<FONT color=darkgreen>''/percorso/del/file.pdf''</font>")

	iimm = New Image[]		iimm = New Image[]
Riga 66:		Riga 66:
	Next		Next

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	With Printer1		With Printer1
Riga 79:		Riga 79:
	End With		End With

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Printer1_Begin()		Public Sub Printer1_Begin()

	<FONT color=gray>' ''Dice all'oggetto ''Printer'' di stampare un numero di pagine pari al numero totale delle pagine di cui è composto il documento pdf:''</font>		<FONT color=gray>' ''Dice all'oggetto ''Printer'' di stampare un numero di pagine pari al numero totale delle pagine di cui è composto il documento pdf:''</font>
	Printer1.Count = p.Count		Printer1.Count = p.Count

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Printer1_Draw()		Public Sub Printer1_Draw()

	<FONT color=gray>' ''Quindi stampiamo ciascuna pagina specificando le sue dimensioni e coordinate:''</font>		<FONT color=gray>' ''Quindi stampiamo ciascuna pagina specificando le sue dimensioni e coordinate:''</font>
Riga 100:		Riga 100:
	Inc j		Inc j

	~~'''~~End~~'''~~		End

Vuott il 22:53, 30 apr 2023

2023-04-30T22:53:39Z

← Versione meno recente		Versione delle 16:53, 30 apr 2023
Riga 100:		Riga 100:
	Inc j		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=<FONT color=gray>''/percorso/del/file.pdf</font>''>Apri file PDF")~~

	'''End'''		'''End'''

Vuott il 01:55, 25 giu 2020

2020-06-25T01:55:58Z

← Versione meno recente		Versione delle 19:55, 24 giu 2020
Riga 1:		Riga 1:
	~~<FONT Color=red><B>ATTENZIONE !~~

	~~IL COMPONENTE GB.PDF E' ORMAI OBSOLETO !</b></font>~~


	Mostreremo di seguito due opzioni per stampare un file PDF.		Mostreremo di seguito due opzioni per stampare un file PDF.

Riga 89:		Riga 84:
	'''Public''' Sub Printer1_Begin()		'''Public''' Sub Printer1_Begin()

	<FONT color=gray>' ''Dice all'oggetto ''Printer'' di stampare un numero di pagine pari al numero ~~complessivo~~ delle pagine di cui è composto il documento pdf:''</font>		<FONT color=gray>' ''Dice all'oggetto ''Printer'' di stampare un numero di pagine pari al numero totale delle pagine di cui è composto il documento pdf:''</font>
	Printer1.Count = p.Count		Printer1.Count = p.Count

Vuott il 01:54, 25 giu 2020

2020-06-25T01:54:57Z

← Versione meno recente		Versione delle 19:54, 24 giu 2020
Riga 6:		Riga 6:
	Mostreremo di seguito due opzioni per stampare un file PDF.		Mostreremo di seguito due opzioni per stampare un file PDF.

	==Stampa con le ~~sole funzioni di Gambas~~==		==Stampa con le risorse del Componente gb.poppler==
	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:		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'';		* attivare il componente ''gb.poppler'';
Riga 34:		Riga 34:
	.Paper = Printer.A4 <FONT color=gray>' ''Opzionale - imposta il tipo di carta''</font>		.Paper = Printer.A4 <FONT color=gray>' ''Opzionale - imposta il tipo di carta''</font>
	.Resolution = Desktop.Resolution <FONT color=gray>' ''Opzionale: modificando il valore di questa proprietà si modificano le dimensioni di stampa''</font>		.Resolution = Desktop.Resolution <FONT color=gray>' ''Opzionale: modificando il valore di questa proprietà si modificano le dimensioni di stampa''</font>
	.Print <FONT color=gray>' ''Effettua la stampa su foglio.''</font>		.Print <FONT color=gray>' ''Effettua la stampa su foglio''</font>
	End With		End With

Riga 53:		Riga 53:
	===Stampare un documento PDF formato da due o più pagine===		===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:		Se il documento PDF è composto da due o più pagine potremo adottare il seguente codice:
	~~'''~~Private~~''' pdf~~ As PdfDocument		Private p As PdfDocument
	~~'''~~Private~~''' pc~~ As ~~New Picture~~[]		Private iimm As Image[]
	~~'''~~Private~~'''~~ j As Short		Private j As Short


	'''Public''' Sub ~~Button1_Click~~()		'''Public''' Sub Form_Open()

			Dim c As Short

			<FONT color=gray>' ''Carica il file PDF del documento da stampare:''</font>
			p = New PdfDocument("<FONT color=gray>''/percorso/del/file.pdf''</font>")

			iimm = New Image[]

			For c = 0 To p.Max
			iimm.Push(p[c].Render(0, 0, p[c].W, p[c].H, 0, p.Resolution))
			Next

			'''End'''

	~~Dim b As Byte~~

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

	~~With printer~~ = ~~New~~ Printer As "~~printer~~"		With Printer1
	.~~Resolution~~ = ~~Desktop~~.~~Resolution~~		.Configure <FONT color=gray>' ''Opzionale - apre la finestra di dialogo se si vuole impostare la stampante''</font>
	.~~Configure~~		.Orientation = Printer.Portrait <FONT color=gray>' ''Opzionale: imposta la modalità di stampa "Verticale" (oppure "Orizzontale").''</font>
	~~.Orientation~~ = 0		.Paper = Printer.A4 <FONT color=gray>' ''Opzionale - imposta il tipo di carta''</font>
	.~~Paper~~ = 2		.Resolution = Desktop.Resolution <FONT color=gray>' ''Opzionale: modificando il valore di questa proprietà si modificano le dimensioni di stampa''</font>
	.Print		.Print <FONT color=gray>' ''Effettua la stampa su foglio''</font>
	End With		End With

	'''End'''		'''End'''


	'''Public''' Sub ~~printer_Begin~~()		'''Public''' Sub Printer1_Begin()

	<FONT color=~~#006400~~>' ''~~Diaciamo~~ all'oggetto ''Printer'' di stampare un numero di pagine''		<FONT color=gray>' ''Dice all'oggetto ''Printer'' di stampare un numero di pagine pari al numero complessivo delle pagine di cui è composto il documento pdf:''</font>
	~~' ''~~pari al numero complessivo delle pagine di cui è composto il documento pdf:''</font>		Printer1.Count = p.Count
	~~Printer~~.Count = ~~pdf~~.Count

	'''End'''		'''End'''


	'''Public''' Sub ~~printer_Draw~~()		'''Public''' Sub Printer1_Draw()

	<FONT color=~~#006400~~>' ''Quindi stampiamo ciascuna pagina specificando le sue dimensioni e coordinate:''</font>		<FONT color=gray>' ''Quindi stampiamo ciascuna pagina specificando le sue dimensioni e coordinate:''</font>
	With Paint		With Paint
	.~~DrawPicture~~(pc[j], ~~PictureBox1.X~~, ~~PictureBox1.Y~~, pc[j].W, pc[j].H)		.DrawImage(iimm[j], 0, 0, iimm[j].W, iimm[j].H)
	.Fill		.Fill
	End With		End With

	Inc j		Inc j

	'''End'''		'''End'''

Vuott il 01:33, 25 giu 2020

2020-06-25T01:33:42Z

← Versione meno recente		Versione delle 19:33, 24 giu 2020
Riga 5:		Riga 5:

	Mostreremo di seguito due opzioni per stampare un file PDF.		Mostreremo di seguito due opzioni per stampare un file PDF.


	==Stampa con le sole funzioni di Gambas==		==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:		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.~~pdf~~'';		* attivare il componente ''gb.poppler'';
	* inserire sul ''Form'' l'oggetto speciale ''Printer'';		* inserire sul ''Form'' l'oggetto speciale ''Printer'';
	* inserire sul ''Form'' un ''Button'';		* inserire sul ''Form'' un ''Button''.
	* inserire sul ''Form'' una ''ScrollView'' della stessa dimensione del ''Form'';		Private im As Image
	* all'interno della ''ScrollView'' si dovrà inserire una ''PictureBox'' della stessa dimensione.
	~~'''Private''' pdf As New PdfDocument~~
	~~'''~~Private~~''' pc~~ As ~~Picture~~


	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	~~With pdf~~		Dim p As PdfDocument
	~~<FONT color=#006400>' ''Carichiamo il file PDF del documento da mostrare:''</font>~~
	~~.Open("<FONT color=gray>''/percorso/del/file.pdf''</font>")~~
	~~<FONT color=#006400>' ''Se il file pdf è stato caricato correttamente...''</font>~~
	~~If .Ready = True Then~~
	~~<FONT color=#006400>' ''...allora convertiamo la prima pagina ("indice" delle pagine = 1) in una "Image",''~~
	~~' ''e quindi l' "image" in una "Picture"...''</font>~~
	~~pc = pdf[1].Image.Picture~~
	~~<FONT color=#006400>' '' ...che così potremo caricare nella "PictureBox":''</font>~~
	~~PictureBox1.Picture = pc~~
	~~<FONT color=#006400>' ''Adattiamo la dimensione della "PictureBox" alla dimensione della pagina pdf:''</font>~~
	~~PictureBox1.Resize(pdf[1].Width, pdf[1].Height)~~

	~~Else~~
	~~<FONT color=#006400>' ''Altrimenti mostriamo una messaggio di avviso:''</font>~~
	~~Message.Error("<FONT color=darkred>Errore nel caricamento del file PDF !")~~

	~~Endif~~

	~~End With~~

	~~'''End'''~~


	~~<FONT color=#006400>' ''Prevediamo l'utilizzo, volendo, anche di una "ScrollView",''~~
	~~' ''che agevolerà la visualizzazione anche in caso di ridimensionamento del Form:''</font>~~
	~~'''Public''' Sub Form_Resize()~~

	~~ScrollView1.Resize~~(~~FMain.W - 10, FMain~~.~~H - 10~~)		<FONT color=gray>' ''Carica il file PDF del documento da stampare:''</font>
			p = New PdfDocument("<FONT color=gray>''/percorso/del/file.pdf''</font>")

			<FONT color=gray>' ''Ottiene un'immagine della prima pagina (indice zero) del documento pdf caricato:''</font>
			im = p[0].Render(0, 0, p[0].W, p[0].H, 0, p.Resolution)

	'''End'''		'''End'''

Riga 55:		Riga 29:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	With Printer1		With Printer1
	.Configure <FONT color=~~#006400~~>' ''~~opzionale~~ - apre la finestra di dialogo se si vuole impostare la stampante.''</font>		.Configure <FONT color=gray>' ''Opzionale - apre la finestra di dialogo se si vuole impostare la stampante''</font>
	.Orientation = 0 <FONT color=~~#006400~~>' ''~~opzionale - (oppure~~: ~~Printer1.Portrait)~~ imposta la modalità di stampa "Verticale" (oppure "Orizzontale").''</font>		.Orientation = Printer.Portrait <FONT color=gray>' ''Opzionale: imposta la modalità di stampa "Verticale" (oppure "Orizzontale").''</font>
	.Paper = 2 <FONT color=~~#006400~~>' ''~~opzionale~~ - imposta il tipo di carta ~~( 2 = A4).~~''</font>		.Paper = Printer.A4 <FONT color=gray>' ''Opzionale - imposta il tipo di carta''</font>
	.Resolution = Desktop.Resolution <FONT color=~~#006400~~>' ''~~opzionale -~~ modificando il valore di questa proprietà si ~~ottiene una~~ stampa ~~più grande o più piccola.~~''</font>		.Resolution = Desktop.Resolution <FONT color=gray>' ''Opzionale: modificando il valore di questa proprietà si modificano le dimensioni di stampa''</font>
	.Print <FONT color=~~#006400~~>' ''~~effettua~~ la stampa su foglio.''</font>		.Print <FONT color=gray>' ''Effettua la stampa su foglio.''</font>
	End With		End With

	'''End'''		'''End'''


	'''Public''' Sub Printer1_Draw() <FONT color=~~#006400~~>' ''Questo evento è richiamato per ogni pagina da stampare.''</font>		'''Public''' Sub Printer1_Draw() <FONT color=gray>' ''Questo evento è richiamato per ogni pagina da stampare.''</font>

	<FONT color=~~#006400~~>' ''Queste sono le informazioni di ciò che si andrà a stampare:''</font>		<FONT color=gray>' ''Queste sono le informazioni di ciò che si andrà a stampare:''</font>
	With Paint		With Paint
	.~~DrawPicture~~(pc, ~~PictureBox1.X~~, ~~PictureBox1.Y~~, pc.W, pc.H)		.DrawImage(im, 0, 0, im.W, im.H)
	.Fill		.Fill
	End With		End With

	'''End'''		'''End'''

Vuott il 10:21, 23 giu 2020

2020-06-23T10:21:43Z

← Versione meno recente		Versione delle 04:21, 23 giu 2020
Riga 1:		Riga 1:
			<FONT Color=red><B>ATTENZIONE !

			IL COMPONENTE GB.PDF E' ORMAI OBSOLETO !</b></font>


	Mostreremo di seguito due opzioni per stampare un file PDF.		Mostreremo di seguito due opzioni per stampare un file PDF.

Vuott il 16:49, 30 dic 2019

2019-12-30T16:49:58Z

← Versione meno recente		Versione delle 10:49, 30 dic 2019
Riga 17:		Riga 17:
	With pdf		With pdf
	<FONT color=#006400>' ''Carichiamo il file PDF del documento da mostrare:''</font>		<FONT color=#006400>' ''Carichiamo il file PDF del documento da mostrare:''</font>
	.Open("''/percorso/del/file.pdf''")		.Open("<FONT color=gray>''/percorso/del/file.pdf''</font>")
	<FONT color=#006400>' ''Se il file pdf è stato caricato correttamente...''</font>		<FONT color=#006400>' ''Se il file pdf è stato caricato correttamente...''</font>
	If .Ready = True Then		If .Ready = True Then
Riga 84:		Riga 84:

	With pdf		With pdf
	.Open("''/percorso/del/file.pdf''")		.Open("<FONT color=gray>''/percorso/del/file.pdf''</font>")
	If .Ready = True Then		If .Ready = True Then
	<FONT color=#006400>' ''Convertiamo ogni pagina del documento in una "Image",''		<FONT color=#006400>' ''Convertiamo ogni pagina del documento in una "Image",''
Riga 133:		Riga 133:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	Message.Info("<A href=''/percorso/del/file.pdf''>Apri file PDF")		Message.Info("<A href=<FONT color=gray>''/percorso/del/file.pdf</font>''>Apri file PDF")

	'''End'''		'''End'''

Vuott il 21:55, 19 nov 2013

2013-11-19T21:55:11Z

← Versione meno recente		Versione delle 15:55, 19 nov 2013
Riga 133:		Riga 133:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

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

	'''End'''		'''End'''

Vuott il 21:54, 19 nov 2013

2013-11-19T21:54:33Z

← Versione meno recente		Versione delle 15:54, 19 nov 2013
Riga 17:		Riga 17:
	With pdf		With pdf
	<FONT color=#006400>' ''Carichiamo il file PDF del documento da mostrare:''</font>		<FONT color=#006400>' ''Carichiamo il file PDF del documento da mostrare:''</font>
	.Open("''~~percorso_del_file~~.pdf''")		.Open("''/percorso/del/file.pdf''")
	<FONT color=#006400>' ''Se il file pdf è stato caricato correttamente...''</font>		<FONT color=#006400>' ''Se il file pdf è stato caricato correttamente...''</font>
	If .Ready = True Then		If .Ready = True Then
Riga 84:		Riga 84:

	With pdf		With pdf
	.Open("''~~percorso_del_file~~.pdf''")		.Open("''/percorso/del/file.pdf''")
	If .Ready = True Then		If .Ready = True Then
	<FONT color=#006400>' ''Convertiamo ogni pagina del documento in una "Image",''		<FONT color=#006400>' ''Convertiamo ogni pagina del documento in una "Image",''