Ciao techno, ad esempio:
codice:
Printer.FontName = "Times New Roman"
Printer.FontSize = 10
Printer.FontBold = True
Printer.CurrentX = 2.5
Printer.CurrentY = 4
Printer.Print "Ditta XXXXXXXX"
Printer.FontBold = False
Printer.DrawWidth = 1
Printer.DrawStyle = vbDashDot
Printer.Line (2.5, 4.5)-(19, 4.5)
Printer.CurrentX = 4
Printer.CurrentY = Printer.CurrentY + 1
Printer.Print "N.Ordine XXX"
Printer.CurrentX = 4
'Le proprietà CurrentX e CurrentY si
'incrementano automaticamente:
Printer.CurrentY = Printer.CurrentY + 0.2
Printer.Print "Cognome: XXXXXXXXXXXXXX"
Printer.CurrentX = 4
Printer.CurrentY = Printer.CurrentY + 0.2
Printer.Print "Nome: XXXXXXXXXXXXXX"
Printer.EndDoc
Però fai attenzione perchè:
Costante Impostazione Descrizione
VbSolid 0 (Predefinita) Continuo.
VbDash 1 Lineetta.
VbDot 2 Punto.
VbDashDot 3 Lineetta-punto.
VbDashDotDot 4 Lineetta-punto-punto.
VbInvisible 5 Trasparente.
VbInsideSolid 6 Continuo interno.
Osservazioni
Se DrawWidth è impostata su un valore maggiore di 1, le impostazioni di DrawStyle comprese tra 1 e 4 creeranno una linea continua (il valore della proprietà DrawStyle è invariato). Se DrawWidth è impostata su 1, tutte le impostazioni DrawStyle corrisponderanno a quelle descritte nella tabella.