Stampare con Gambas.

[fsurfing]

se i campi da stampare sono di piu di uno componi la variabile stringa come vuoi tu es:

Codice: [Seleziona]

testo=rresult!mio_campo_1 & " " & rresult!mio_campo_n 

[tornu]

leo72 ha scritto:

Codice: [Seleziona]

'-- inizializzo l'oggetto Printer
Printer.Copies = 1 '-- numero di copie
Printer.Name = Nome_stampante '-- nome della stampante di sistema (se ne hai una predefinita, non serve stabilirlo) 

'-- inizi la generazione del documento
Draw.Begin(Printer)  '-- lego l'oggetto Printer al metodo Draw
'-- colori primario e dello sfondo
Draw.Foreground = Color.Black
Draw.Background = color.White 

Cerco di applicare le tue indicazioni ma trovo sempre qualche difficoltà (mea culpa) mi da questo messaggio:

Unknown identifier: Printer

  :-?  :-?

[Pixel]

Controlla se nel tuo progetto è presente il componente gb.qt se non c'è mettilo.
Ciao

[tornu]

pixel ha scritto:
Controlla se nel tuo progetto è presente il componente gb.qt se non c'è mettilo.
Ciao

Grazie pixel, gb.qt era presente mancava gb.qt.ext
Ciao

[md9327]

Per tornu

L'inclusione della libreria è semplicissimo, dato che è scritta interamente in gambas, devi solo includerla tra i sorgenti del tuo programma. Per poterla utilizzare, devi solo crearti degli oggetti personalizzati che sono INHERITS di questa libreria, e utilizzare i metodi "header" e "footer" per poterci scrivere le tue personalizzazioni, ovviamente sulla TUA classe...
Per l'utilizzo, se non ricordo male dato che l'ho messa su sf.net un pò di tempo fà, e se non me lo sono dimenticato, nel file compresso è incluso anche un esempio.

[tornu]

Purtroppo l'esempio non c'è, se per caso te lo ritrovassi potresti postarlo?
In caso contrario un nuovo esempio per darmi lo spunto per poter applicare la libreria?

[md9327]

Strano ??? Ero convinto di si, ad ogni modo verifico e, comunque ti invio l'esempio.

[tornu]

L'esempio era presente, mea culpa, ti ringrazio comunque per la sollecitudine.
Ciao

[md9327]

Nessun problema...

Se ti leggi il modulo di test, vedrai che ho fatto varie prove utilizzando un pò tutte le caratteristiche della libreria.
Se trovi qualcosa di errato, fammelo sapere!

Ciao

[robertozr]

fsurfing ha scritto:
potresti fare cosi:

Codice: [Seleziona]

for each rresult


testo =rresult!mio_campo

 draw.text(testo,x,y)

 y=y+15

next

in questo modo ti stampa un elenco di elementi del campo mio_campo

Buona sera e grazie per la risposta,tutto ok vorrei sapere se possibile
l'unita di misura delle coordinate e degli oggetti ( rettangolo ecc.)

[fsurfing]

essendo delle funzioni di disegno si tratta di pixel :-)

[md9327]

Non proprio... Se guardi il sorgente, nella creazione della classe, ti trovi dei controlli relative alla misura adottata, che tra l'altro si passa nel secondo parametro:

  SELECT CASE Lower(unit)
  CASE "pt"
    $k = 1
  CASE "mm"
    $k = 72 / 25.4
  CASE "cm"
    $k = 72 / 2.54
  CASE "in"
    $k = 72
  DEFAULT
    Error.Raise("Incorrect unit: " & unit)
  END SELECT

dove:
"pt" = punti
"mm" = millimetri
"cm" = centimetri
"in" = inches

[fsurfing]

per md9327

forse robertozr si riferiva all' unità di misura utilizzata in gambas nelle funzioni di stampa o disegno che se non sbaglio possono essere solo  pixel. :-)

[md9327]

Ops... Probabilmente è vero, chiedo venia.

Ad ogni modo in Gambas le misure sono ovviamente in pixel; se provi a fare una PRINT delle proprietà dell'oggetto Desktop, vedrai che corrispondono alle dimensioni del tuo schermo allo stato attuale (es. 1024x768).
Se ci pensi bene, quali altre misure potrebbe prendere in considerazione, a meno di non fare algoritmi di conversione ? Lo schermo è formato da punti, quindi pixel; se poi si parla di altri device, allora il discorso cambia, come ad esempio una stampante.

Comunque, e questo non è un rimprovero bensì un consiglio, leggiamo la documentazione su web!

Ciao

[Mario]

Volevo rendervi partecipi della mia gioia :-)

Seguendo i consigli di questo topic sono arrivato a stampare la mia prima fattura!
Sono contento come una pasqua!!! :-)
Ovviamente a guardarla fa pietà e anche un po' di pena, ma cavoli che soddisfazione!!

Adesso ho qualche dubbio amletico, che però temo di essermi già risolto da solo.
Per eseguire la stampa ho seguito i consigli all'inizio di questo topic, creando la stampa per prima su una Drawing Area di dimensioni 600x850 che corrispondono, all'incirca, a un foglio A4 a 75 dpi.
La domanda, alla quale temo di essermi già dato risposta, è: se decido di stampare a 300dpi, come faccio a modificare la stampa?
Ovviamente la risposta è: metti i posizionamenti parametrici e non assoluti.
Ad esempio, se ho una linea del tipo

Codice: [Seleziona]

draw.line(10, 10, 100, 100)

potrebbe diventare

Codice: [Seleziona]

dim X as integer   'Dimensione orizzontale
dim Y as integer   'Dimensione verticale

draw.line(X/75*10, Y/75*10, X/75*100, Y/75*100)

giusto?