[VB5] PrintForm

[almax]

salve
perdonate l'ignoranza ma sono agli inizi!!
Stampando un form col metodo printForm in VB5, esiste la possibilità di adattare la stampa sul foglio? Nell'applicazione, che è un semplice programma per creare una dichiarazione, reperisco i dati e poi li sistemo su un form per la stampa. Però non mi trovo con le dimensioni! Ho troppi dati e nel form sono appiccicati, poi nella stampa, prendono 2/3 del foglio!
grazie a tutti

[Johnny_Depp]

sposto nell'apposito subforum

[Brainjar]

Non ho mai usato questo sistema. E non ricordo se la printForm manda
un FormFeed (salto pagina) dopo ogni stampa in automatico. Se così
non fosse, potresti gestire il tutto con due form. Le riempi dei dati
ed al printForm della prima fai eseguire anche il printForm della
seconda. Ovviamente le dimensioni dei form non dovrebbero eccedere
quelle della pagina in stampa. Dopo di che dai un Printer.EndDoc e
il gioco è fatto.

Ripeto, è fattibile solo se printForm non salta pagina i automatico.
Ciao,
Brainjar.

[almax]

Ciao Brainjar
guarda, non ho la minima idea se la printForm invia un salto pagina!! Il problema è che la lunghezza del form è più piccola della pagina! Anche se divido i dati, la pagina viene stampata per 2/3 della sua lunghezza.
ciao

[Brainjar]

Se una Form riempie i 2/3 della pagina, un'altra Form, più piccola,
potrebbe riempire il terzo mancante.

|-----------------------------|
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
| xxxx     Primo Form    xxxx |
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
|-----------------------------|
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
| xxxx   Secondo Form    xxxx |
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
| xxxxxxxxxxxxxxxxxxxxxxxxxxx |
|-----------------------------|

Chiaro adesso ?
Il tutto se dopo la printForm VB non va a capo automaticamente.
Ciao,
Brainjar.

[almax]

Brainjar
ho provato ma purtroppo va a capo!! Non so che fare!!
aiutooooo

[almax]

Non mi abbandonate!!

[Brainjar]

Scusa, ma perchè non provi con il metodo classico ?
Utilizza l'oggetto Printer.

Qualsiasi altra soluzione richiede più codice ed è meno
efficiente.

Ciao,
Brainjar.

[almax]

...mmmm lo so! il problema è, come ho detto all'inizio, non ho ancora molta dimestichezza!! lo devo studiare!
Per caso, c'è qualche pezzettino di codice che faccia al caso mio???
cmq ti rigrazio Brainjar

[pierabo]

Originariamente inviato da almax
Per caso, c'è qualche pezzettino di codice che faccia al caso mio???

Ciao, ecco un banale esempio:
'modalità stampante per lavorare in millimetri
Printer.ScaleMode = vbTwips
'font del carattere
Printer.FontName = "Arial"
'dimensione del carattere
Printer.FontSize = 10
'in grassetto
Printer.FontBold = True
'sottolineato
Printer.FontUnderline = True
'corsivo
Printer.FontItalic = True
'posizione verticale: 10 millimetri
Printer.CurrentY = ConvTwips(10)
'posizione orizzontale: 30 millimetri
Printer.CurrentX = ConvTwips(30)
'stampa senza andare a capo
Printer.Print "ritenuta d'acconto";
'posizione orizzontale: 60 millimetri
Printer.CurrentX = ConvTwips(60)
Printer.Print "19% sul 20% dell'imponibile: "
'salta a nuova pagina
Printer.NewPage
'chiude la coda di stampa
Printer.EndDoc

Function ConvTwips(Millimetri As Variant) As Long
ConvTwips = Millimetri * 56.36

End Function




in questo modo è facilissimo: basta usare un banalissimo righello per misurare le coordinate