Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

hier noch das Drucklisting
Autor: berd01
Datum: 18.02.02 10:38
'Auflistung ausdrucken Dim I As Integer Screen.MousePointer = 11 'Druckmodus: Querformat Printer.Orientation = 2 With Printer .ScaleMode = 6 'Maßeinheit "mm" .Font.Name = "Arial" 'Schriftart .Font.Size = 12 'Schriftgröße Überschrift .CurrentX = 10 'Startposition .CurrentY = 10 .Font.Bold = True Printer.Print "Adressenliste" + vbCrLf 'Überschrift (Fettdruck) .Font.Bold = False 'Listenkopf .Font.Bold = True .Font.Size = DruckerSchriftGrad .CurrentX = 10: Printer.Print "Pos"; .CurrentX = 20: Printer.Print FillToMaxSize("Vorname", 20); .CurrentX = 40: Printer.Print FillToMaxSize("Name", 20); .CurrentX = 60: Printer.Print FillToMaxSize("Anschrift", 25); .CurrentX = 80: Printer.Print FillToMaxSize("PLZ", 20); .CurrentX = 100: Printer.Print FillToMaxSize("Ort", 20); .CurrentX = 125: Printer.Print FillToMaxSize("Land", 20); .CurrentX = 150: Printer.Print FillToMaxSize("Telefon", 20); .CurrentX = 180: Printer.Print FillToMaxSize("Fax", 20); .CurrentX = 210: Printer.Print FillToMaxSize("Email", 20); .CurrentX = 240: Printer.Print FillToMaxSize("Notiz", 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 = 40: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(2), 20); .CurrentX = 60: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(3), 25); .CurrentX = 80: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(4), 20); .CurrentX = 100: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(5), 20); .CurrentX = 125: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(6), 20); .CurrentX = 150: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(7), 20); .CurrentX = 180: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(8), 20); .CurrentX = 210: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(9), 20) 'den habe ich erstmal auskomm. da ich keine 10 mehr habe!!! '.CurrentX = 240: Printer.Print FillToMaxSize(ListView1.ListItems(I).SubItems(10), 20) Next I 'Druckauftrag beenden .EndDoc End With Screen.MousePointer = 0 MsgBox "Adressen-Auflistung wird gedruckt!", 64, "Drucken..."

@Dieter wg. KeyVal	45	berd01	18.02.02 10:32
hier noch das Drucklisting	38	berd01	18.02.02 10:38
Re: hier noch das Drucklisting	204	Dieter	18.02.02 11:25
danke, nur wie gehts?	27	berd01	18.02.02 11:31
Re: danke, nur wie gehts?	210	Dieter	18.02.02 11:33
ja so hilfts dann auch was	25	berd01	18.02.02 12:03

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