Stampare con Gambas.

[Mario]

Uhm, mi sa che ho scritto una cavolata...

Codice: [Seleziona]

dim res as integer   'Risoluzione su printer'

draw.line(res/75*10, res/75*10, res/75*100, res/75*100)

Decisamente meglio :-)

[giuseppe249]

Fino a qui ci sono anche io,

Codice: [Seleziona]

for each rresult  
 testo =rresult!mio_campo
 draw.text(testo,x,y)
 y=y+15 
 next

Ho notato però nel caso di una Tabella con una grande quantità di dati, come fargli capire che deve continuare a stampare alla pagina successiva?

Io sono rimasto all'istruzione

Printer.NewPage()
 e poi?

[leo72]

E poi devi rigenerare la struttura base della pagina e ricominciare con il contatore dal punto d'inizio, finché non hai stampato tutti gli elementi.
Ad esempio, potresti far così (in pseudocodice, riprendendo un po' il tuo esempio):

Codice: [Seleziona]

Y = valore_iniziale
Imposta_Pagina()
for each rresult  
 testo = rresult!mio_campo
 draw.text(testo,x,y)
 y=y+15 
 if y>valore_max then
   printer.newpage()
   Imposta_pagina()
   Y = valore_iniziale
 endif
 next

Insomma, una roba del genere....

[tornu]

Come si fa ad allineare a destra la stampa del dato contenuto da "testo" se sono cifre con decimali?

leo72 ha scritto:

Codice: [Seleziona]

Y = valore_iniziale
Imposta_Pagina()
for each rresult  
 testo = rresult!mio_campo
 draw.text(testo,x,y)
 y=y+15 
 if y>valore_max then
   printer.newpage()
   Imposta_pagina()
   Y = valore_iniziale
 endif
 next

[leo72]

Io formatto tutto in valuta per cui ho sempre 2 decimali dopo la virgola, che siano una coppia di zeri oppure due cifre qualunque. Per allineare a destra usa

Codice: [Seleziona]

draw.Text(Stringa, X1, Y1, X2, Y2, Align.allineamento)

Su Align, premendo il punto, avrai le costanti utilizzabili.

[tornu]

Credo di aver applicato correttamente il tuo suggerimento, ma non riesco ad ottenere l'allineamento che mi serve, questa è la porzione di codice interessato:

Codice: [Seleziona]

FOR EACH xResult
  Draw.Text(codice, x, y)
  codice = xResult!cdart
  Draw.Text(articolo, x + xinc1, y)
  articolo = xResult!descrizione
  Draw.Text(prezzo, x + 3000, y, Align.Right)
  prezzo = Format(xResult!prezzo2, "#0.00")
NEXT 

praticamente ottengo una stampa allineata così

Codice: [Seleziona]

10,50 
25,00 
4,50

io vorrei ottenere questo allineamento

Codice: [Seleziona]

10,50
25,00
 4,50

[fsurfing]

non vorrei dire una fregnaccia ma a me pare che per utilizzare correttamente l' allineamento bisogna anche indicare la larghezza e l' altezza del rettangolo dove si vuole scrivere il testo altrimenti come fa gambas a capire rispetto a cosa allineare il testo?



altrimenti una soluzione alternativa e di calcolare la larghezza del testo

con  draw.font.whidth  e indicare dove stampare poi il testo di conseguenza

[md9327]

Infatti, la tua affermazione è corretta!

[leo72]

Infatti, io ho specificato X1,Y1 e X2,Y2.
Se non si crea il rettangolo testuale, l'oggetto non sa esattamente quanto è larga l'area e quindi non fa ciò che deve riguardo all'allineamento.

[tornu]

:nulla:  ... ok ho capito  :leggere:  con più attenzione.
Grazie

[md9327]

E farai bene, altrimenti frustate sui "diti" dei piedi... :-)

[tornu]

E se volessi stampare testo in verticale ?

Draw.Text("Testo", ???, ???)

P.S.: Spero di non beccare altre frustate sui "diti"....

[leo72]

In verticale intendi sviluppato in verticale o proprio ruotato in verticale?
Nel primo caso potresti creare un'area più alta che larga e poi mettere il testo con un sacco di ritorno a capo dopo ogni lettera:

Testo = "P\nr\no\nv\na"

Risultato:

Codice: [Seleziona]

P
R
O
V
A

Nel secondo credo tu debba usare un'immagine preparata in anticipo e poi ruotata.

[tornu]

Ruotato in verticale.

Quindi con questa istruzione non posso ottenere la "verticalità del testo"

Codice: [Seleziona]

draw.Text(Stringa, X1, Y1, X2, Y2, Align.allineamento)

ma trasformare il testo in immagine e gestirlo come tale, ho capito bene?

[fsurfing]

esatto , dovresti prima creare una picture con il testo e poi ruotarla,

unico problema è che la creaziona della picture devi farla prima di iniziare a stampare altrimenti otterresti un errore