Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto con metodo printer

Ciao a tutti,
dovendo stampare delle linee e dei cerchi che ho precedentemente disegnato
su un form devo utilizzare il metodo printer (vero? :-/).
Visto ceh sul manuale che sto seguendo è poco chiaro, potreste darmi dei
consigni, indirizzi, pezzi di codice per favore?
Grazie a quelli ceh accoglieranno il mio appello :-)
Domenico

 dei consigni, indirizzi, pezzi di codice per favore?
E' tutto uguale. Cambia solo l'oggetto di destinazione, non piů il form, ma
la Printer.

 la Printer.
Lupo, ma devo ridisegnare tutto oppure c'è la possibilità di tagliare un
pezzo di form o un controllo picture e  spedirlo alla stampante? sarebbe
molto più comodo.
Ciao
Domenico

[*Domenico Rella* = 
domenic...@yahoo.it
 in
news:1KxTb.243866$_
P.83...@news4.tin.it
] ha scritto:

Ti consiglierei, per una questione di maggior definizione/precisione/cura,
di fare una Sub alla quale passi (dopo averne settato le proprietà
dimensionali e di scala) l'oggetto di destinazione, del tipo:
Sub Disegna(dest As Object)
    dest.Line ...
    dest.Circle...
'        etc.
End Sub
da chiamarsi con:
Call Disegna (Me)                    'Per il form
oppure
Call Disegna(Me.Picture1)    'Per una picture sul form
oppure
Call Disegna (Printer)            'Per la stampante corrente
Questa si occupa di produrre il disegno facendo sempre e solo riferimento a
dest e, solo per operazioni speciali (per esempio la chiamata di EndDoc o
NewPage se si tratta della Printer), fare un test del tipo:
If dest Is Printer Then
'        Istruzioni solo per la Printer
'    ...
Else
'        Istruzioni solo per il form o una picture
'    ...
End If
In questo modo avrai la miglior riproduzione. Stampare un form o salvarlo
come file grafico ti "sporcherebbe" troppo il disegno.

[*Lupo* = 
LupoOrmaiR...@libero.it
 in
news:bvm9in$t5eg7$
1...@ID-174464.news.uni-berlin.de
] ha scritto:
...
Per la stampa diretta (ma, come detto, sarà "sporca") vedi PaintPicture

 ha scritto nel messaggio
news:bvm9kl$trehp$1...@ID-174464.news.uni-berlin.de...

Lupo, grazie per la celerità! eccheccacchio!
ti posso chiedere per curiosità che lavoro fai, visto che sei così esperto
in vb?
Ciao
Domenico

 esperto in vb?
Ma, scusa, secondo te?

 Ma, scusa, secondo te?
il fruttivendolo, naturalmente.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 il fruttivendolo, naturalmente.
No, è che mi vergognavo:
Ho un ApeCar con basculante sinistra e vado a vendere panini dove ci sono
assembramenti umani.

 assembramenti umani.
in effetti l'ho sparata bella :-)))

 come file grafico ti "sporcherebbe" troppo il disegno.
Ciao
decidendo di utilizzare questa soluzione (riservandomi di provare alche con
quella sporca per "vedere l'effetto che fa")
ricevo un errore ri run time 438 proprietà o metodo no supportati
dall'oggetto. Riporto il codice:
Private Sub filenaca_Click()
Dim ... Form As Object
'assegno l'oggetto form al form principale
Set Form = frm_nacad
....
portion = 1 'stampa la parte inferiore
Call trace_curve(portion, Form)
portion = 2 'stampa la parte superiore
Call trace_curve(portion, Form)
End Sub
Private Sub trace_curve(portion As String, dest As Object)
...
'Ecco la riga di codice su cui mi da l'errore:
'ho provato pure con dest=form e con dest is form
If dest Is Not Printer Then
            txtcoord.Text = txtcoord.Text & riga & vbCrLf
End If
grazie per la pazienza
Domenico

 Domenico
ho risolto togliendo
 Set Form = frm_nacad
e nell if
If dest Is me...
ma vorrei capire come mai mi dava quel tipo di errore
Domenico

 Domenico
Nuovo problema:
quando premo il tasto per stampare non stampa niente e sono quando chiudo il
form mi stampa una lineetta rossa.
Se sto attentando alla vostra incolumità mentale ditemelo pure :-))))
Ciao
Domenico

 Se sto attentando alla vostra incolumità mentale ditemelo pure :-))))
Se non leggerai i post, non ci sarà bisogno di dirtelo...
L'incolumità a rischio non è certo la nostra...

 L'incolumità a rischio non è certo la nostra...
questa è una frase degna del tuo nick :-)))
Grazie Lupo
Domenico

 sono assembramenti umani.
**************
Domanda della maestra: il lavoro del vostro papa'
I bambini rispondono le professioni piů comuni - il pompiere, il poliziotto,
impiegato di banca etc.
Pierino rimane stranamente in silenzio e quindi la maestra gli chiede
cosa faccia suo padre.
"Mio padre fa il ballerino in un cabaret per gay e si spoglia davanti ad
altri uomini. A volte, se l'offerta č particolarmente buona, va fuori con un
pň di spettatori assatanati e lo prende in culo"
La maestra, ovviamente scossa da questa affermazione, velocemente
dice agli altri bambini di colorare alcuni disegni e, preso da parte Pierino
gli chiede "E' proprio vero quello che hai detto di tuo padre?"
"No", risponde Pierino, "lavora per il governo Berlusconi, ma mi
vergognavo troppo a dirlo".
**************
Bye, G.

 ha scritto nel messaggio
news:bvorl3$uka49$1...@ID-108681.news.uni-berlin.de...

LOL anche se la conoscevo
Domenico

 risolto. senza call non funziona
Non ho capito...