[VB] Stampare immagini

[Luigi]

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">

[Luigi]

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">

[Ices_Eyes]

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

[M@ttia]

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

[Luigi]

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

[Ices_Eyes]

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

Private Sub Command1_Click()

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

Printer.PaintPicture Picture1.Picture, posizionex, posizioney

End Sub

[M@ttia]

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 ).

[Luigi]

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]

[M@ttia]

Prego, finché restiamo nel VB ci sono sempre!