Si infatti seguendo il manuale avevo creato una cosa simile, ma l'unico
comando che non sono riuscito a trovare era l'orientamento della stampa.
Infatti posso impostare i margini ecc.. ma non l'orientamento.
Sempre un grazie
Enrico
----- Original Message -----
From: "Gilberto De Faveri" <gilberto dot defaveri at omnidea dot it>
To: "REALbasic NUG Italian" <realbasic-nug dot it at lists dot realsoftware dot
com>
Sent: Wednesday, February 13, 2008 11:58 AM
Subject: Re: Stampa Orizzontale
Ti riferisci all'orientamento della pagina?
Tutte le impostazioni del pannello delle preferenze di stampa possono
essere salvate in forma di stringa attraverso la proprietà SetupString
(puoi conservarle ad esempio in un file di testo dopo la prima stampa)
e ripristinate per le stampe successive.
Qualcosa del genere:
'Stampa
Dim g as Graphics
Dim PageSetup As New PrinterSetup()
'Se non ci sono impostazioni di stampa valide apro la finestra di
impostazioni
If PageSettings.Trim() = "" And PageSetup.PageSetupDialog() Then
PageSettings = PageSetup.SetupString
'Salvo le impostazioni di stampa
Dim PrinterSettings As FolderItem = New FolderItem("")
PrinterSettings = PrinterSettings.Child("printer.cfg")
If PrinterSettings <> nil And PrinterSettings.IsWriteable Then
Dim t As TextOutputStream
t = PrinterSettings.CreateTextFile()
t.Write(PageSettings)
t.Close()
End If
End If
PageSetup.SetupString = PageSettings
g = OpenPrinterDialog(PageSetup)
On 13/feb/08, at 11:39, EnricoLr a Libero wrote:
Salve a tutti, una domandina...
è possibile impostare la stampa in orizzontale di default dal comando
PrinterSetup?
Ho provato a guardare il manuale ma non ho trovato il parametro, o c'è
qualche altro comando....
Sempre un grazie a tutti
Enrico
--
gilberto de faveri
omnidea srl
edificio pegaso
parco scientifico tecnologico vega
via delle industrie, 15
30175 venezia marghera
tel +39 041 509 3441
fax +39 041 509 3641
www.omnidea.it
|