Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Druckt plötzlich alle Zeilen übereinander!
Autor: berd01
Datum: 11.02.02 14:30
Ha, sorry Dieter! Hier isser: 'Auflistung ausdrucken Dim I As Integer Screen.MousePointer = 11 'Druckmodus: Querformat Printer.Orientation = 2 With Printer .ScaleMode = 6 'Maßeinheit "mm" .Font.Name = "Arial" .Font.Size = 12 .CurrentX = 10 .CurrentY = 10 .Font.Bold = True Printer.Print "Adressenliste" + vbCrLf .Font.Bold = False 'Listenkopf .Font.Bold = True .Font.Size = 10 .CurrentX = 10: Printer.Print "Pos"; .CurrentX = 20: Printer.Print FillToMaxSize("Vorname", 20); .CurrentX = 50: Printer.Print FillToMaxSize("Name", 20); .CurrentX = 80: Printer.Print FillToMaxSize("Anschrift", 25); .CurrentX = 110: Printer.Print FillToMaxSize("PLZ", 20); .CurrentX = 130: Printer.Print FillToMaxSize("Ort", 20); .CurrentX = 160: Printer.Print FillToMaxSize("Land", 20); .CurrentX = 190: Printer.Print FillToMaxSize("Telefon", 20); .CurrentX = 220: Printer.Print FillToMaxSize("Fax", 20); .CurrentX = 250: Printer.Print FillToMaxSize("Email", 20) .Font.Bold = False 'Adresspositionen .CurrentY = .CurrentY + 5 For I = 1 To ListView1.ListItems.Count .CurrentX = 10: Printer.Print FillToMaxSize(Format$(I), 5); .CurrentX = 20: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(1), 20); .CurrentX = 50: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(2), 20); .CurrentX = 80: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(3), 25); .CurrentX = 100: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(4), 20); .CurrentX = 130: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(5), 20); .CurrentX = 160: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(6), 20); .CurrentX = 190: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(7), 20); .CurrentX = 220: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(8), 20); .CurrentX = 250: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(9), 20); Next I 'Druckauftrag beenden .EndDoc End With Screen.MousePointer = 0 MsgBox "Adressen-Auflistung wird gedruckt!", 64, "Drucken..." End Sub

Im Querformat Drucken?	56	berd01	11.02.02 12:50
Re: Im Querformat Drucken?	330	Dieter	11.02.02 12:54
Re: Im Querformat Drucken?	33	berd01	11.02.02 13:04
Standartdialog einbinden	36	berd01	11.02.02 13:07
Re: Standartdialog einbinden	335	Dieter	11.02.02 13:21
Re: Standartdialog einbinden	33	berd01	11.02.02 14:07
Druckt plötzlich alle Zeilen übereinander!	82	berd01	11.02.02 14:22
Re: Druckt plötzlich alle Zeilen übereinander!	323	Dieter	11.02.02 14:25
Re: Druckt plötzlich alle Zeilen übereinander!	36	berd01	11.02.02 14:30
Wer Lesen kann hat einen Vorteil!	33	berd01	11.02.02 14:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen