Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Stampa con carattere invertito (bianco su nero)

Ciao a tutti !!
Sto facendo una piccola applicazione che stampa dei report (non voglio usare
cristal report).
Mi chiedevo se esiste un codice escape, o un comando, che permetta di
invertire i colori del carattere.
Ossia invece di nero su bianco, deve diventare bianco su nero.
Grazie mille !
Dave
--
"The truth is out there"

-> Dave <- <da...@hate.spam> wrote in message
8u635a$q5r$1...@bw107zhb.bluewin.ch...

Non credo, almeno per due ragioni.
La prima è che se esistesse questo codice escape, sarebbe diverso da
stampante a stampante
e quindi i driver non servirebbero a niente.
La seconda è che (a quanto ne so io) la maggior parte delle stampanti
(laser, getto ecc.) non
stampano più in modalità testo, ma esce tutto quanto come grafica, questo
per
poter stampare tutti i tipi di font che hai installato.
Anche le stampanti ad aghi oramai vengono gestite in modalità grafica.
La stampante quindi non capisce che sta stampando testo e quindi non credo
tu possa
dirgli che colori deve stampare.
Anch'io avevo lo stesso problema (della stampa a colori) e ho
dovuto acquistare ActiveReport.
Ciao
Sergio



 wrote in message
news:8u6aml$nri$1...@fe2.cs.interbusiness.it...

Avete provato:
'// scala in millimetri
Printer.ScaleMode = vbMillimeters
'// disegna lo sfondo: se ne va via 1 Kg di toner
'// le misure sono quelle del foglio A4
Printer.Line (0, 0) - (210, 297), vbBlack, BF
'// imposta il colore del testo
Printer.Forecolor = vbWhite
Ciao
Aldo

 wrote in message
8u7bu4$12vif$1...@ID-56381.news.dfncis.de...


 e poi stampa quella ?
stavo per suggerirti esattamente questa prova.
cattura il form o quello che e' in un picbox nascosto, inverti i colori,
e pensa a noi qui oltralpe quando butti via le cartucce di toner
cioe', buttale in fiumi con decorso a nord, li gia' ne hanno,
2000 in piu' o in meno coa vuoi che sia,
ci ripristineranno la foresta nera :)


Oltralpe ?? io non sto mica oltralpe... di dove sei tu ?

 Oltralpe ?? io non sto mica oltralpe... di dove sei tu ?
oddio ho sbagliato dave. non sei il dave di lugano ? io sto a modena.
riscusa e ciao, a.


ciao pal , alla prossima !!!
Dave

 Ma tra modena e lugano ci sono le alpi ? non lo sapevo... eheh
gli appennini no senz'altro... i/le rocky mountains neppure... ayers rock
non credo... in effetti, forse _tra_ non e' proprio esatto. comunque, se
vuoi sapere dove stai tu:
http://maps.excite.com/address_results/?a=&c=lugano&s=&cn=&world=1
:)


Probabilmente è un'errore di battitura
Tra Modena e Lugano ci sono le API
Ciao
Sergio


IO ho provato con:
Dim A As Object
Set A = Printer
' oppure Set A = Me per fare prima le prove sul form
'lavoriamo in millimetri
A.ScaleMode = vbMillimeters
'disegnamo un rettangolo (piccolo! non voglio sprecare inchiostro.)
A.Line (0, 0)-(15, 15), vbBlack, BF
'Imposto il colore del testo
A.ForeColor = vbWhite
'Seleziono una scritta che abbia piu' o meno le dimensioni del box
A.Font.Name
 = "Arial"
A.Font.Size = 20
'Mi riporto nell'angolo
A.CurrentX = 0
A.CurrentY = 0
'Stampo
A.Print "Ciao"
If A Is Printer Then A.EndDoc
Nella stampa viene fuori un quadrato nero con sopra un rettangolo bianco in
corrispondenza di dove dovrebbe esserci la scritta.
Quando invece stampo sul form viene bene!
Ho pensato anche di aggiungere un A.FontTrasparent = True (impostazione di
default sul form) ma non ha effetto sulla mia stampante.