Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

[VB] Stampare immagini

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

[VB] Stampare immagini

Messaggioda Luigi » gio gen 22, 2004 1:50 pm

Ciao ho un problema.

Devo riuscire a stampare un immagine .jpg con visual basic.
L'immagine è di piccole dimensioni (69x85) e deve essere centrata nel foglio di dimensioni normali (A4).

Ho cercato codice da eseguire su alcune guide trovate su internet ma non ho trovato nulla. Spero voi possiate darmi qualche consiglio.

Grazie ciao

<font color="red">Edited by Zane: Rispettare i TAG, e quindi lo staff di ZZN, non è opzionale.</font id="red">
Avatar utente
Luigi
Bronze Member
Bronze Member
 
Messaggi: 804
Iscritto il: lun ago 05, 2002 9:36 am
Località: Piemonte

[VB] Stampare immagini

Messaggioda Luigi » gio gen 22, 2004 1:50 pm

Ciao ho un problema.

Devo riuscire a stampare un immagine .jpg con visual basic.
L'immagine è di piccole dimensioni (69x85) e deve essere centrata nel foglio di dimensioni normali (A4).

Ho cercato codice da eseguire su alcune guide trovate su internet ma non ho trovato nulla. Spero voi possiate darmi qualche consiglio.

Grazie ciao

<font color="red">Edited by Zane: Rispettare i TAG, e quindi lo staff di ZZN, non è opzionale.</font id="red">
Avatar utente
Luigi
Bronze Member
Bronze Member
 
Messaggi: 804
Iscritto il: lun ago 05, 2002 9:36 am
Località: Piemonte

Messaggioda Ices_Eyes » gio gen 22, 2004 2:57 pm

Sinceramente non mi ricordo di preciso come si fa, ma di certo mi ricordo che devi usare l'oggetto Printer, forse col metodo PaintPicture...
Prova a vedere nella guida di VB se trovi qualcosa...

Ciao
Avatar utente
Ices_Eyes
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 5543
Iscritto il: ven ott 24, 2003 10:37 am
Località: Prov. di Venezia


Messaggioda M@ttia » gio gen 22, 2004 5:04 pm

Semplicissimo: alla pressione di command1 ti stampa picture1 al centro del foglio:

Private Sub Command1_Click()

posizionex = (Printer.Width - Picture1.Width) / 2
posizioney = (Printer.Height - Picture1.Height) / 2

Printer.PaintPicture Picture1.Picture, posizionex, posizioney

End Sub


[^]
Avatar utente
M@ttia
Moderatore
Moderatore
 
Messaggi: 8363
Iscritto il: lun giu 09, 2003 2:18 pm
Località: Ticino - Estero

Messaggioda Luigi » gio gen 22, 2004 7:35 pm

Ciao,

mi spiace ma non riesco a far funzionare la function che mi hai scritto.
Ho capito che la mia immagine devo inserirla nell'oggetto "picture1",
ma il "2" che hai messo alla fine delle due variabili "posizionex" e "posizioney" me lo segnala come errore e se lo elimino mi stampa solo una parte dell'immagine in un angolo del foglio.

Puoi darmi qualche spiegazione più dettagliata su questa function?
Te ne sarei molto grato.

Ciao grazie
Avatar utente
Luigi
Bronze Member
Bronze Member
 
Messaggi: 804
Iscritto il: lun ago 05, 2002 9:36 am
Località: Piemonte

Messaggioda Ices_Eyes » gio gen 22, 2004 7:48 pm

Credo questa sia quella esatta, mancava il /, se non l'hai aggiunta... [baby]

Private Sub Command1_Click()

posizionex = (Printer.Width - Picture1.Width)/ 2
posizioney = (Printer.Height - Picture1.Height)/ 2

Printer.PaintPicture Picture1.Picture, posizionex, posizioney

End Sub
Avatar utente
Ices_Eyes
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 5543
Iscritto il: ven ott 24, 2003 10:37 am
Località: Prov. di Venezia

Messaggioda M@ttia » gio gen 22, 2004 7:54 pm

Ovvio, è un "fratto 2 cioè /2" (Bravo Ices!). Scusa ma nella fretta l'ho tralasciato, ora ho corretto. Praticamente printer.height prende l'altezza del foglio, picture1.height l'altezza dell'immagine, e lo spazio che va lasciato sopra alla foto per far sì che sia al centro è appunto metà foglio - metà immagine... (stessa cosa per la larghezza; il metodo vale anche se si vuole centrare un form nello schermo, ecc...) (anche se non hai capito comunque funziona lo stesso [^]).
Avatar utente
M@ttia
Moderatore
Moderatore
 
Messaggi: 8363
Iscritto il: lun giu 09, 2003 2:18 pm
Località: Ticino - Estero

Messaggioda Luigi » gio gen 22, 2004 10:29 pm

Grazie mille!

Sono riuscito a stampare nella posizione in cui volevo.
Grazie mille per il vostro aiuto e per la vostra velocità con cui mi avete risposto.

Ciao[dance][:D]
Avatar utente
Luigi
Bronze Member
Bronze Member
 
Messaggi: 804
Iscritto il: lun ago 05, 2002 9:36 am
Località: Piemonte

Messaggioda M@ttia » ven gen 23, 2004 12:04 pm

Prego, finché restiamo nel VB ci sono sempre! [^]
Avatar utente
M@ttia
Moderatore
Moderatore
 
Messaggi: 8363
Iscritto il: lun giu 09, 2003 2:18 pm
Località: Ticino - Estero


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti

cron
Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising