37
« il: 22 Gennaio 2009, 15:35:01 »
Grazie per l'esauriente spiegazione.
Io sto tentando di ricrearmi un programmino per stampare le fatture e i ddt.
per fare questo ho bisogno di sapere quante "unità disegno" è grande il mio foglio, credo dia aver risolto con l'opzione draw.W e una semplice proporzione:
PUBLIC SUB Button2_Click()
DIM hStampa AS Process
DIM s AS Single '**************** VARIABILE DI SCALA
Printer.File = Application.Path & "/stampa.ps"
Draw.Begin(Printer)
s = draw.W / 11350 '****************** PROPORZIONE
Draw.Font.Name = "URW Chancery L"
Draw.Font.Bold = FALSE
Draw.Font.Italic = FALSE
Draw.Font.Size = 28
Draw.Text("EDILSERVICE", 500 * s, 500 * s)
Draw.LineWidth = 4 '-- spessore
Draw.Rect(5675 * s, 2280 * s, 5275 * s, 1600 * s)
Draw.Rect(400 * s, 4180 * s, 10550 * s, 400 * s)
Draw.Rect(400 * s, 4630 * s, 10550 * s, 400 * s)
Draw.Rect(400 * s, 5180 * s, 10550 * s, 6600 * s)
Draw.Line(8450 * s, 5180 * s, 8450 * s, 11780 * s)
Draw.Rect(400 * s, 11830 * s, 10550 * s, 400 * s)
Draw.Line(8450 * s, 11830 * s, 8450 * s, 12230 * s)
Draw.Rect(400 * s, 12380 * s, 10550 * s, 1000 * s)
Draw.Rect(400 * s, 13430 * s, 10550 * s, 1000 * s)
END SUB
11350 era la larghezza della mia area di stampa printer.ScaleWidth,
il sistema ora sembra funzionare dovrei vedere se cambiando stampante ci possono essere degli errori.
Accetto consigli, in tanto grazie a tutti ciao ivo