Originariamente inviato da almax
Per caso, c'è qualche pezzettino di codice che faccia al caso mio???
Ciao, ecco un banale esempio:
'modalità stampante per lavorare in millimetri
Printer.ScaleMode = vbTwips
'font del carattere
Printer.FontName = "Arial"
'dimensione del carattere
Printer.FontSize = 10
'in grassetto
Printer.FontBold = True
'sottolineato
Printer.FontUnderline = True
'corsivo
Printer.FontItalic = True
'posizione verticale: 10 millimetri
Printer.CurrentY = ConvTwips(10)
'posizione orizzontale: 30 millimetri
Printer.CurrentX = ConvTwips(30)
'stampa senza andare a capo
Printer.Print "ritenuta d'acconto";
'posizione orizzontale: 60 millimetri
Printer.CurrentX = ConvTwips(60)
Printer.Print "19% sul 20% dell'imponibile: "
'salta a nuova pagina
Printer.NewPage
'chiude la coda di stampa
Printer.EndDoc

Function ConvTwips(Millimetri As Variant) As Long
ConvTwips = Millimetri * 56.36

End Function




in questo modo è facilissimo: basta usare un banalissimo righello per misurare le coordinate