[VB6] Etichette adesive

[buburp]

Conoscete tutti i fogli A4 con 24 etichette da 70 x 37 mm.
Vorrei stampare un testo su un'etichetta specifica. Come faccio?
Equivalentemente, come faccio a "tarare" Printer.Print in modo che mi stampi, ad esempio, a 3 cm dal margine sx e a 4 dall'alto?

[yyzyyz]

'----------esempio stampa--------
Private Sub Command1_Click()
'posizionamento sul foglio
Printer.CurrentX = 1000
Printer.CurrentY = 1000
'per cambiare il font
Printer.FontSize = 10
Printer.Font = "Tahoma"
Printer.FontBold = False
' stampa
Printer.Print "123"
' fine stampa
Printer.EndDoc
End Sub

ps. se mi dai la tua email in pvt forse riesco a darti un esempio x il problema dello scroll con la rotellina del mouse.

[buburp]

La mia e-mail è kaiser@buburp.com.

Scusa, ma CurrentX e CurrentY sono in twips. Molto scomodo! Per averle in mm? Devo forse modificare l'unità di misura sul form di appartenenza?

P.S.: Ehi, ci siamo entrambi registrati in questo forum nell'Ottobre 2001!

[xegallo]

per gli scambi privati di file usate i mex privati