Guten Tag,
zur Zeit beschäftige ich mit dem Ausdrucken eines ListViews mit 2Spalten.
Leider werden die Spalten nicht in einer Flucht angezeigt, sondern wie im Anhang dargestellt...
Folgender Codeausschnitt ist bei mir fürs Drucken zuständig
Ich hoffe mir kann da jemand weiterhelfen
Vielen Dank im Vorraus
Mit freundlichen Grüßen
Kael
zur Zeit beschäftige ich mit dem Ausdrucken eines ListViews mit 2Spalten.
Leider werden die Spalten nicht in einer Flucht angezeigt, sondern wie im Anhang dargestellt...
Folgender Codeausschnitt ist bei mir fürs Drucken zuständig
Quellcode
- Dim d As Integer
- Dim p As Integer
- Printer.CurrentX = 6
- Printer.Print ListView1.ColumnHeaders(1) , ListView1.ColumnHeaders(2)
- For p = 1 To z
- If d <= 82 Then
- Printer.CurrentX = 6
- Printer.Print ListView1.ListItems(p) , ListView1.ListItems(p).SubItems(1)
- 'wenn größer als 85 Printer.NewPage
- d = d + 1
- Else
- Printer.NewPage
- Printer.CurrentY = 10
- Printer.CurrentX = 6
- Printer.Print ListView1.ColumnHeaders(1) , ListView1.ColumnHeaders(2)
- Printer.CurrentX = 6
- Printer.Print ListView1.ListItems(p) , ListView1.ListItems(p).SubItems(1)
- d = 1
- End If
- Next p
- Printer.EndDoc
Ich hoffe mir kann da jemand weiterhelfen
Vielen Dank im Vorraus
Mit freundlichen Grüßen
Kael