[VB6] Stampare un form

[scarob]

Salve a tutti,
ho un grosso problema.
In un'applicazione che sto creando, ho bisogno di stampare una fattura. Per tutta una serie di motivi, ho deciso di utilizzare un form e non un datareport per realizzarla.
Adesso il mio problema è il seguente:

il form ha la dimensione del foglio A4 ma come si fa dire alla stampante di stampare in orizzontale?

Nei DataReport c'è l'opzione
DataReport.Orientation = rptOrientLandscape

ma con i form come si fa?
Forse si può utilizzare l'oggetto "printer"
Aspetto risposte...

[Brainjar]

Utilizza :

Printer.Orientation = VBRUN.PrinterObjectConstants.vbPRORLandscape

Ciao,

[scarob]

ok, ma mi spieghi come si usa l'oggeto "printer" per stampare il form?

[Brainjar]

L'oggetto printer lo usi per settare la stampante.
Per stampare il form usa il metodo del form stesso:

PrintForm

Esempio :

Private Sub Command2_Click()
    Printer.Orientation = VBRUN.PrinterObjectConstants.vbPRORLandscape
    Me.PrintForm
End Sub

Ciao,

[scarob]

Funziona! Grazie!

PS: e per ristampare in verticale?

[Brainjar]

    Printer.Orientation = VBRUN.PrinterObjectConstants.vbPRORPortrait

Ciao,

[scarob]

Ultima domanda:
posso intervenire sulle dimensioni dei margini della pagina?

[Brainjar]

Ti riporto quanto citato da MSDB (Help):

Proprietà di scala
Per l'oggetto Printer sono disponibili le seguenti proprietà di scala:

ScaleMode


ScaleLeft e ScaleTop


ScaleWidth e ScaleHeight


Zoom
Le proprietà ScaleLeft e ScaleTop definiscono rispettivamente le coordinate x e y corrispondenti all'angolo superiore sinistro di una pagina stampata. Modificando i valori di ScaleLeft e ScaleTop, è possibile definire i margini sinistro e superiore della pagina stampata. ScaleLeft e ScaleTop consentono, ad esempio, di stampare un form centrato (PFrm) sulla pagina utilizzando le seguenti istruzioni:

Printer.ScaleLeft = -((Printer.Width - PFrm.Width) / 2)
Printer.ScaleTop = -((Printer.Height - PFrm.Height) _
/ 2)

Molte stampanti supportano la proprietà Zoom che consente di definire la percentuale di cui si desidera modificare le proporzioni dell'output. Il valore predefinito della proprietà Zoom è 100, che corrisponde alla stampa dell'output con dimensioni reali. È possibile utilizzare la proprietà Zoom per ridurre o ingrandire la pagina da stampare rispetto alle dimensioni effettive del foglio. Impostando Zoom su 50, ad esempio, la pagina stampata avrà una lunghezza e una larghezza pari alla metà della lunghezza e della larghezza del foglio. La sintassi riportata imposta la proprietà Zoom su dimensioni pari alla metà delle dimensioni predefinite dell'oggetto Printer:

Printer.Zoom = 50

Potresti provare con Zoom, un valore maggiore di 100 ti dovrebbe
ridurre i margini, minore di 100, aumentarli.

Ciao,

[scarob]

Sei stato gentilissimo.
Grazie, tutto!!!
Ciao

[gyuliano]

Salve, mi introduco esponendo la mia problematica.

La mia applicazione fa ottenere all'utente (quindi in run time) un form sia con controlli creati in fase di progettazione (labels e textbox) che creati durante l'esecuzione (es. oggetti grafici come linee e punti).

Il punto è che non riesco a stampare un form siffatto. PERCHE' NON MI SUGGERITE PER FAVORE COME FARE, O QUANTO MENO CHE STARDA PRENDERE (printer, clipboard, ...)?

Grazie mille.

Ciao, Giuliano.