Ti invio copia del programma
Printer.FontSize = 12
Printer.CurrentX = 3500: Printer.Print "GIACENZA MAGAZZINO"
Printer.FontSize = 6
For stampa = 0 To List1.ListCount - 1
parte1 = Left$(List1.List(stampa), 50): parte2 = (Mid$(List1.List(stampa), 52))
Printer.CurrentX = 1000: Printer.Print parte1: Printer.CurrentX = 4500: Printer.Print parte2
Next stampa
Printer.EndDoc