|
Printer.FontName = "Arial" 'tipo font
Printer.FontSize = 14 'dimenzione Do While Not MyArchivio.Eof 'tutto l'archivio Printer.Print tab(5); MyArchivio!Cognome; Printer.Print tab(25); MyArchivio!nome; Printer.Print tab(45); MyArchivio!indirizzo Printer.Print tab(65); MyArchivio!ecc. ecc. Loop Printer.EndDoc 'puoi aggiungere nel ciclo un contariga che ti cambia pagina con if contariga > 50 then Printer.NewPAge End If |