Avete comprato la cartuccia come vi avevo detto?

No? Male, molto male

Se ricordate la scorsa lezione fu prettamente teorica e di stampanti non si è parlato molto, adesso rimedierò velocemente e poi passeremo ad altri argomenti

Come prima cosa...iniziamo a chiedere all’utente cosa stampare

Se avete notato abbiamo dato all’utente tre comandi EXIT, FORWARD e QUIT, che corrispondono a tre metodi di Printer che esamineremo oggi

Adesso iniziamo a dire Ciao alla stampante, anche se questo va prima della dichiarazione della nostra stringa

Dopo la linea 1 inseriamo questo

Se avete notato abbiamo inserito solo la clausola di codice relativa ad Exit ed Else

Prima che vi chiediate perchè vi rispondo io, perchè gli altri sono metodi di Printer che ora ci accingiamo ad esaminare

Questo metodo annulla l’operazione corrente( a noi non servirà )

Osserviamo:

Mando in stampa questo file, ma poi mi accorgo che ci manca una cosa: come fare?
Dopo 20 secondi la stampante ha scritto

Adesso, se cancellasi correrei un rischio: che mentre il KillDoc arriva la stampante finisca il suo lavoro, ma...ci proviamo

Il nostro metodo è arrivato e la stampante ha cessato di funzionare, adesso possiamo aggiungere tutto ciò che volevamo e ristampare

Stavolta abbiamo questo testo

Mandiamo in stampa e otteniamo

Ma il foglio resta nella stampante e NON esce, almeno finchè non arriva

Perchè il foglio non usciva?
Perchè la stampante credeva che il documento continuasse ancora, ENDDOC la ha invece avvisata della sua fine

Se ricordate la nostra prima operazione fu Printer.NewPage, nel caso del comando Forward dobbiamo ancora usare questo metodo, che espelle la pagina corrente e ne prepara una nuova alla stampa

Ecco la nostra routine completa

Se avete qualcosa da stampare divertitevi con questa nostra routine che tra poco estenderemo con IMAGE ( se avete letto la serie sul Parsing saprete già come aggiungere IMAGE x alla nostra Select Case, altrimenti attendete)

La sintassi di questo metodo, copiata dalla guida di VB è il metodo per stampare immagini

Immagine: è l’immagine da stampare, deve essere una proprietà Picture

X1-Y1: L’inizio della stampa sul foglio

Larghezza1, Altezza1, Larghezza2, Altezza2: valori facoltativi, altezza della sorgente e della destinazione del nostro lavoro di stampa ( ometteteli )

X2-Y2: ritaglio all’interno di immagine ( ometteteli )

CodiceOP: operazioni grafiche da eseguire su immagine, i valori sono presenti nell’SDK, ma non nella guida di VB ( di solito si può omettere )

Possiamo passare all’opera

Questo è sufficiente, e se ENRALE.BMP fosse

noi sul nostro foglio avremmo ENRALE.BMP stampato esattamente così

Io ho usato (0,0), ma voi di solito userete

Dove CurrentX e CurrentY indicano la posizione corrente sull’asse delle X e su quello delle Y, mentre X e Y indicano delle costanti da sommare

Se vi ricavaste l’asse X e Y dopo la stampa dell’immagine ne potreste stampare un’altra subito sotto ( utile se il vostro programma gestisce una raccolta di immagini )

Quando uso il termine asse X e Y sembrerà ovvio il richiamo agli assi cartesiani, ed in fondo c’è una relazione, solo che valori negativi non sono ammessi, insomma solo il 2° quadrante è valido perchè esso è + +, mentre il primo è - +, il terzo è - -, il quarto è + -

Se non ricordate un piano cartesiano eccolo

In questo piano cartesiano l’area verde è il nostro foglio, mentre quella rossa è l’area non stampabile, poichè una o più sue coordinate sono negative, mentre nell’area verde abbiamo + +, e cioè un’area reale

Non esiste nessun punto (-4;+6) nella realtà, dov’è -4 sul nostro foglio se 0 è il alto a sinistra

Quell’ellise bianco è 0;0 che come vedete è il punto di base
Se su questo foglio abbiamo che l’ellisse giallo è 50, 50 siamo sicuri che un punto -1;0’ non esiste poichè sarebbe antecedente al primo punto valido dell’insieme

Dopo questa discussione matematico-informatica possiamo ritornare alla nostra stampante

Poniamo il caso che ci serva sapere se nei 2 cm che ci restano sul foglio riusciamo a stampare in Courier New a 12 Pixel "SONO MOLTO FELICE CHE TU SIA POTUTO VENIRE A SALUTARMI, MARK"

Innanzitutto facciamoci dire da VB l’altezza nell’unità di misura della stampante

Come rendere più compatto tutto questo?

Dopo varie modifiche una super-funzione che ha raccolto tutto è stata scritta e adesso possiamo anche farci qualcosa di costruttivo, osservate

Se invece volessimo una funzione booleana potremmo ritornare True se l’If è True, False altrimenti

Per questa volta abbiamo finito, la prossima volta ultima grafica e qualche proprietà più avanzata