Ottenere un file PDF da una Image - Cronologia

Vuott il 22:05, 27 dic 2024

2024-12-27T22:05:14Z

← Versione meno recente		Versione delle 16:05, 27 dic 2024
Riga 26:		Riga 26:
	Public Sub Printer1_Draw()		Public Sub Printer1_Draw()

	With Paint		With Paint
	<FONT Color=gray>' ''Usa il Metodo "DrawImage():''</font>		<FONT Color=gray>' ''Usa il Metodo "DrawImage():''</font>
	.DrawImage(im, 0, 0, im.W, im.H), 1.0, Null)		.DrawImage(im, 0, 0, im.W, im.H), 1.0, Null)
	.End		.End
	End With		End With

	End		End
Riga 56:		Riga 56:
	Public Sub Printer1_Draw()		Public Sub Printer1_Draw()

	With Paint		With Paint
	<FONT Color=gray>' ''Usa il Metodo "DrawImage():''</font>		<FONT Color=gray>' ''Usa il Metodo "DrawImage():''</font>
	.DrawImage(PictureBox1.Image, 0, 0, PictureBox1.Image.W, PictureBox1.Image.H, 1.0, Null)		.DrawImage(PictureBox1.Image, 0, 0, PictureBox1.Image.W, PictureBox1.Image.H, 1.0, Null)
	.End		.End
	End With		End With

	End		End

Vuott il 22:04, 27 dic 2024

2024-12-27T22:04:20Z

← Versione meno recente		Versione delle 16:04, 27 dic 2024
Riga 1:		Riga 1:
	E' possibile ottenere un file PDF dal contenuto grafico di un Oggetto ''Image''.		E' possibile ottenere un file PDF dal contenuto grafico di un Oggetto ''Image''.
	In particolare, per ottenere il file PDF bisognerà far stampare dalla Classe ''Paint'' nell'Evento "_Draw()" dell'Oggetto ''Printer'' i dati immagine contenuti dall'Oggetto ''Image''.		<BR>In particolare, per ottenere il file PDF bisognerà far stampare dalla Classe ''Paint'' nell'Evento "_Draw()" dell'Oggetto ''Printer'' i dati immagine contenuti dall'Oggetto ''Image''.
			<BR>Si utilizzerà la Proprietà ".OutputFile". <SUP>[[[#Note\|nota 1]]]</sup>

	Mostriamo un esempio pratico:		Mostriamo un esempio pratico:
Riga 16:		Riga 17:
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
	<FONT Color=gray>' ''Per creare un file PDF, imposta la Proprietà ".OutputFile":''</font>		<FONT Color=gray>' ''Per creare un file PDF, imposta la Proprietà ".OutputFile":''</font>
	.OutputFile = "/tmp/file.pdf"		<FONT Color=red>.OutputFile</font> = "/tmp/file.pdf"
	.Print		.Print
	End With		End With
Riga 33:		Riga 34:
	End		End
	Ugualmente se il PDF debba essere ottenuto dall'immagine mostrata da una ''PictureBox''.		Ugualmente se il PDF debba essere ottenuto dall'immagine mostrata da una ''PictureBox''.
	<BR>In tal caso si raccoglieranno i dati immagine contenuti dalla Proprietà ".Image" della ''PictureBox'' <SUP>[[[#Note\|nota 1]]]</sup> o di una ''ImageView''.		<BR>In tal caso si raccoglieranno i dati immagine contenuti dalla Proprietà ".Image" della ''PictureBox'' <SUP>[[[#Note\|nota 2]]]</sup> o di una ''ImageView''.
	Private printer1 As Printer		Private printer1 As Printer

Riga 46:		Riga 47:
	.Resolution = Desktop.Resolution		.Resolution = Desktop.Resolution
	<FONT Color=gray>' ''Per creare un file PDF, imposta la Proprietà ".OutputFile":''</font>		<FONT Color=gray>' ''Per creare un file PDF, imposta la Proprietà ".OutputFile":''</font>
	.OutputFile = "/tmp/file.pdf"		<FONT Color=red>.OutputFile</font> = "/tmp/file.pdf"
	.Print		.Print
	End With		End With
Riga 66:		Riga 67:

	=Note=		=Note=
	[1] Vedere anche la seguente pagina: [[Stampare il contenuto grafico di una PictureBox]].		[1] Vedere anche il seguente paragrafo: [https://www.gambas-it.org/wiki/index.php/Stampare_in_Gambas#Stampare_in_un_file_PDF_.28creare_un_file_PDF.29 Stampare in un file PDF (creare un file PDF)]

			[2] Vedere anche la seguente pagina: [[Stampare il contenuto grafico di una PictureBox]].

Vuott il 21:43, 27 dic 2024

2024-12-27T21:43:40Z

← Versione meno recente		Versione delle 15:43, 27 dic 2024
Riga 32:		Riga 32:

	End		End
	Ugualmente se il PDF debba essere ottenuto dall'immagine mostrata da una ''PictureBox''. In tal caso si raccoglieranno i dati immagine contenuti dalla Proprietà ".Image" della ''PictureBox'' <SUP>[[[#Note\|nota 1]]]</sup> o di una ''ImageView''.		Ugualmente se il PDF debba essere ottenuto dall'immagine mostrata da una ''PictureBox''.
			<BR>In tal caso si raccoglieranno i dati immagine contenuti dalla Proprietà ".Image" della ''PictureBox'' <SUP>[[[#Note\|nota 1]]]</sup> o di una ''ImageView''.
	Private printer1 As Printer		Private printer1 As Printer

Vuott il 21:35, 3 lug 2024

2024-07-03T21:35:23Z

← Versione meno recente		Versione delle 15:35, 3 lug 2024
Riga 9:		Riga 9:
	Public Sub Form_Open()		Public Sub Form_Open()

	im = Image.Load("<FONT Color=~~gray~~>~~'''~~''/percorso/del/file/immagine~~'''~~''</font>")		im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	With printer1 = New Printer As "Printer1"		With printer1 = New Printer As "Printer1"
Riga 38:		Riga 38:
	Public Sub Form_Open()		Public Sub Form_Open()

	PictureBox.Image = Image.Load("<FONT Color=~~gray~~>~~'''~~''/percorso/del/file/immagine~~'''~~''</font>")		PictureBox.Image = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	With printer1 = New Printer As "Printer1"		With printer1 = New Printer As "Printer1"

Vuott: Creata pagina con "E' possibile ottenere un file PDF dal contenuto grafico di un Oggetto ''Image''. In particolare, per ottenere il file PDF bisognerà far stampare dalla Classe ''Paint'' nell'E..."

2023-07-16T23:36:02Z

Creata pagina con "E' possibile ottenere un file PDF dal contenuto grafico di un Oggetto ''Image''. In particolare, per ottenere il file PDF bisognerà far stampare dalla Classe ''Paint'' nell'E..."

Nuova pagina

E' possibile ottenere un file PDF dal contenuto grafico di un Oggetto ''Image''.
In particolare, per ottenere il file PDF bisognerà far stampare dalla Classe ''Paint'' nell'Evento "_Draw()" dell'Oggetto ''Printer'' i dati immagine contenuti dall'Oggetto ''Image''.

Mostriamo un esempio pratico:
Private im As Image
Private printer1 As Printer

Public Sub Form_Open()

im = Image.Load("'''''/percorso/del/file/immagine'''''")

With printer1 = New Printer As "Printer1"
.Paper = Printer.A4
.GrayScale = False
.Resolution = Desktop.Resolution
' ''Per creare un file PDF, imposta la Proprietà ".OutputFile":''
.OutputFile = "/tmp/file.pdf"
.Print
End With

End

Public Sub Printer1_Draw()

With Paint
' ''Usa il Metodo "DrawImage():''
.DrawImage(im, 0, 0, im.W, im.H), 1.0, Null)
.End
End With

End
Ugualmente se il PDF debba essere ottenuto dall'immagine mostrata da una ''PictureBox''. In tal caso si raccoglieranno i dati immagine contenuti dalla Proprietà ".Image" della ''PictureBox'' [[[#Note|nota 1]]] o di una ''ImageView''.
Private printer1 As Printer

Public Sub Form_Open()

PictureBox.Image = Image.Load("'''''/percorso/del/file/immagine'''''")

With printer1 = New Printer As "Printer1"
.Paper = Printer.A4
.GrayScale = False
.Resolution = Desktop.Resolution
' ''Per creare un file PDF, imposta la Proprietà ".OutputFile":''
.OutputFile = "/tmp/file.pdf"
.Print
End With

End

Public Sub Printer1_Draw()

With Paint
' ''Usa il Metodo "DrawImage():''
.DrawImage(PictureBox1.Image, 0, 0, PictureBox1.Image.W, PictureBox1.Image.H, 1.0, Null)
.End
End With

End

=Note=
[1] Vedere anche la seguente pagina: [[Stampare il contenuto grafico di una PictureBox]].