Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

STAMPA SU CARTA LINEA VERTICALE CONTINUA

1 view
Skip to first unread message

GIAP

unread,
Jul 18, 2008, 4:20:55 AM7/18/08
to
VB6 SP6

Quali sono le istruzioni giuste per stampare su carta una o più linee
verticali continue per simulare un prospetto contabile, usando i comuni
comandi di printer.print ?

Ho fatto qualche vano tentativo per utilizzare il segno grafico posto in
alto sul primo tasto a sinistra di una tastiera Qwerty, ma non ci sono
riuscito.Come fare ?

Ringrazio per l'aiuto, non sono bravo in materia.

GIAP


AlpVir

unread,
Jul 18, 2008, 5:11:58 PM7/18/08
to
> Quali sono le istruzioni giuste per stampare su carta una o più linee
> verticali continue per simulare un prospetto contabile, usando i comuni
> comandi di printer.print ?


Un paio di spezzoni di codice da cui puoi dedurre come fare.
Non dimenticare di terminare il tuo documento con un bel Printer.EndDoc
Ciao
AlpVir

On Error GoTo errHandler
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlPDNoSelection Or cdlPDHidePrintToFile
CommonDialog1.ShowPrinter
NumCopie = CommonDialog1.Copies
Printer.ScaleMode = 6
Printer.Orientation = vbPRORLandscape ' formato orizzontale
Printer.Print
On Error GoTo 0


Printer.DrawWidth = 3
Printer.Line (10, OffsetY - 5)-(280, 190), , B ' rettangolo
Printer.Line (10, OffsetY + 3)-(280, OffsetY + 3) ' prima linea
orizzontale
Printer.DrawWidth = 1
Printer.Line (27, OffsetY - 5)-(27, 190) ' 1 linea verticale

GIAP

unread,
Jul 19, 2008, 2:33:30 AM7/19/08
to
Ti ringrazio, ci provo e poi ti farň sapere.
Cordiali saluti
giap


"AlpVir" <ubt@chiocciolaliberoit> ha scritto nel messaggio
news:48810725$0$40315$4faf...@reader5.news.tin.it...
>> Quali sono le istruzioni giuste per stampare su carta una o piů linee

0 new messages