realbasic-nug.it
[Top] [All Lists]

Re: Stampa Orizzontale

To: "REALbasic NUG Italian" <realbasic-nug dot it at lists dot realsoftware dot com>
Subject: Re: Stampa Orizzontale
From: "Enrico a Libero" <enricolr at libero dot it>
Date: Wed, 13 Feb 2008 23:50:09 +0100
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot it at lists dot realsoftware dot com
References: <00a401c86e2c$c39fdf30$4800a8c0 at fiasa dot lan><F794143B-4365-4B66-A4FD-4B727FC50FB1 at omnidea dot it><00de01c86e35$f8c56ff0$4800a8c0 at fiasa dot lan><1FEA56A1-1A40-42DE-AE1C-851BDCE362E3 at omnidea dot it><013401c86e4a$7740cd70$4800a8c0 at fiasa dot lan><3974A313-91CE-4024-BE60-1F3FBAEE3E31 at omnidea dot it> <01af01c86e64$b68e6770$4800a8c0 at fiasa dot lan>
Si ok ho risolto, non leggevo correttamente il file salvato, poi girando nei forum ho trovato come leggere il file di impostazioni salvato. Non so se faccio cosa gradita ma vi allego il codice per leggere il file di setup.

Sempre un grazie a tutti e soprattutto a Gilberto per le imbeccate puntuali e risolutive.

Enrico

dim s as string
dim g as graphics
dim p as printersetup
p=new printersetup
s=p.setupstring

dim t8 as textinputstream
dim f8 as folderitem
f8=getfolderitem("C:\print.ini")
if f8.exists then
 msgbox "exists"
end if
dim a as integer
t8=f8.openastextfile
dim bs as string
dim def as string
while not t8.eof
 a=a+1
 bs=t8.readline
 def=def+endofline+bs
wend
t8.close
p.setupstring=def
if p.pagesetupdialog then
 g=openprinterdialog(p)
 if g<>nil then
   g.drawstring "Greetings from Frederik Pot", 80,80
   s=p.setupstring
   msgbox s
 end if
end if

----- Original Message ----- From: "EnricoLr a Libero" <enricolr at libero dot it>
To: "REALbasic NUG Italian" <realbasic-nug dot it at lists dot realsoftware dot 
com>
Sent: Wednesday, February 13, 2008 6:20 PM
Subject: Re: Stampa Orizzontale


Su windows uso la versione 2005, però su MAC ho la versione 2007 r1 e ho provato ma non riesco a fargli tenere l'impostazione predefinita. Forse sbaglio qualche cosa... questa sera faccio altre prove e ti faccio sapere. Ho trovato su un forum il consiglio per mettere di default l'impostazione in orizzontale...dice di immettere un valore nel pagewitdh tale che automaticamente il foglio viene stampato in orizzontale, ti risulta? proverò anche questo.

Ciao e come sempre 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 4:42 PM
Subject: Re: Stampa Orizzontale


Ho fatto qualche prova sia su Mac che su Windows e viene preservato anche l'orientamento del foglio.

Che versione di REALbasic stai utilizzando?

On 13/feb/08, at 15:12, EnricoLr a Libero wrote:

Caio,
Ti allego i 2 file di settaggio, io proprio l'orentamento non l'ho trovato. Considera che nel file printer.cfg ho scelto l'orientamento orizz. e nel file printer1.cfg quello verticale.
Ho provato anche altre stampanti non virtuali come PDF creator.

Grazie e ciao
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




--
No virus found in this incoming message.
Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.20.4/1276 - Release Date: 13/02/2008 9.41





<Prev in Thread] Current Thread [Next in Thread>