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.