Generare un file PDF da una DrawingArea - Cronologia

Vuott il 00:23, 11 ago 2025

2025-08-11T00:23:53Z

← Versione meno recente		Versione delle 18:23, 10 ago 2025
Riga 33:		Riga 33:
	.Ellipse(100, 100, 100, 100, Rad(0), Rad(360), False)		.Ellipse(100, 100, 100, 100, Rad(0), Rad(360), False)
	.Fill		.Fill
			<FONT Color=gray>' ''Essendo stato usato il Metodo ".Begin()", è necessario chiudere il disegno con il Metodo ".End()":''</font>
	.End		.End
	End With		End With

Vuott il 21:19, 2 ago 2025

2025-08-02T21:19:30Z

← Versione meno recente		Versione delle 15:19, 2 ago 2025
Riga 58:		Riga 58:
	End		End
	Riguardo all'argomento in oggetto si rinvia alla lettura anche delle seguenti pagine della wiki:		Riguardo all'argomento in oggetto si rinvia alla lettura anche delle seguenti pagine della wiki:
	* [[Stampare il contenuto di una DrawingArea]]		* '''[[Stampare il contenuto di una DrawingArea]]'''
	* [[Generare_un_file_immagine_da_una_DrawingArea#Usando_la_Classe_.22Printer.22.2C_nonch.C3.A9_la_Classe_.22PdfDocument.22_del_Componente_gb.poppler\|Usando la Classe "Printer", nonché la Classe "PdfDocument" del Componente gb.poppler]]		* [[Generare_un_file_immagine_da_una_DrawingArea#Usando_la_Classe_.22Printer.22.2C_nonch.C3.A9_la_Classe_.22PdfDocument.22_del_Componente_gb.poppler\|Usando la Classe "Printer", nonché la Classe "PdfDocument" del Componente gb.poppler]]
	* [[Stampare_in_Gambas#Stampare_in_un_file_PDF\|Stampare in un file PDF]]		* [[Stampare_in_Gambas#Stampare_in_un_file_PDF\|Stampare in un file PDF]]

Vuott il 01:51, 5 giu 2024

2024-06-05T01:51:10Z

← Versione meno recente		Versione delle 19:51, 4 giu 2024
Riga 60:		Riga 60:
	* [[Stampare il contenuto di una DrawingArea]]		* [[Stampare il contenuto di una DrawingArea]]
	* [[Generare_un_file_immagine_da_una_DrawingArea#Usando_la_Classe_.22Printer.22.2C_nonch.C3.A9_la_Classe_.22PdfDocument.22_del_Componente_gb.poppler\|Usando la Classe "Printer", nonché la Classe "PdfDocument" del Componente gb.poppler]]		* [[Generare_un_file_immagine_da_una_DrawingArea#Usando_la_Classe_.22Printer.22.2C_nonch.C3.A9_la_Classe_.22PdfDocument.22_del_Componente_gb.poppler\|Usando la Classe "Printer", nonché la Classe "PdfDocument" del Componente gb.poppler]]
	* [[~~Printer~~#~~Stampare_in_un_file_.pdf_o_.ps~~\|Stampare in un file ~~.pdf con la Classe Printer~~]]		* [[Stampare_in_Gambas#Stampare_in_un_file_PDF\|Stampare in un file PDF]]

Vuott: Creata pagina con "Per generare un file PDF dal disegno mostrato sulla superficie di una ''DrawingArea'', si può fare riferimento generico al seguente esempio: Private printer1 As Printer Pri..."

2023-07-16T23:56:39Z

Creata pagina con "Per generare un file PDF dal disegno mostrato sulla superficie di una ''DrawingArea'', si può fare riferimento generico al seguente esempio: Private printer1 As Printer Pri..."

Nuova pagina

Per generare un file PDF dal disegno mostrato sulla superficie di una ''DrawingArea'', si può fare riferimento generico al seguente esempio:
Private printer1 As Printer
Private DrawingArea1 As DrawingArea
Private im As Image

Public Sub Form_Open()

With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
.X = 0
.Y = 0
.W = Me.W
.H = Me.H
.Background = Color.White
End With

' ''Crea un'immagine delle medesime fattezze della "DrawingArea":''
im = New Image(DrawingArea1.W, DrawingArea1.H, DrawingArea1.Background, Image.Standard)

End

Public Sub DrawingArea1_Draw() ' Nella medesima routine disegna sia sulla "DrawingArea" che nell'Oggetto "Image":

' ''Disegna sulla "DrawingArea":''
With Paint
.Brush = .Color(Color.Orange)
.Ellipse(100, 100, 100, 100, Rad(0), Rad(360), False)
.Fill
' ''Disegna il medesimo contenuto anche nell'Oggetto "Image":''
.Begin(im)
.Brush = .Color(Color.Orange)
.Ellipse(100, 100, 100, 100, Rad(0), Rad(360), False)
.Fill
.End
End With

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, 100, 100, im.W, im.H, 1.0, Null)
.End
End With

End
Riguardo all'argomento in oggetto si rinvia alla lettura anche delle seguenti pagine della wiki:
* [[Stampare il contenuto di una DrawingArea]]
* [[Generare_un_file_immagine_da_una_DrawingArea#Usando_la_Classe_.22Printer.22.2C_nonch.C3.A9_la_Classe_.22PdfDocument.22_del_Componente_gb.poppler|Usando la Classe "Printer", nonché la Classe "PdfDocument" del Componente gb.poppler]]
* [[Printer#Stampare_in_un_file_.pdf_o_.ps|Stampare in un file .pdf con la Classe Printer]]