Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Sauberer ListBox-Ausdruck
Autor: CarpeDiem
Datum: 18.10.04 07:16
Hi, Erfreulicherweise gibt es hier Hinweise wie man einen sauberen ListView-Ausdruck "hinkriegt". Ich suche jedoch einen "sauberen ListBox-Ausdruck" in dem ich punktgenau meine "ListBox-Inhalte" ausdrucken kann. D.h. ich muss z.B. die Ziffer 10 koordinatengenau ausdrucken können. Einen einfach positionierten ListBox-Ausdruck kriege ich ja hin (siehe nachfolgend), aber wie....   Private Sub PrintIrgendwas(iLeftBorder As Integer, iLines As Integer) '20 mm linker Rand 45 Zeilen Dim i As Long, bOk As Boolean, lRet&, iPosX As Integer '... lRet = MsgBox("Diesen Listbox - Inhalt drucken ?", vbYesNo Or vbInformation, "Information") If lRet = vbYes Then List1.Visible = False '... With Printer .ScaleMode = vbMillimeters ' Maßeinheit "mm" iPosX = iLeftBorder - ((.Width \ 56.7) - .ScaleWidth) \ 2 ' linke Anfangesposition If iPosX < 20 Then iPosX = 20 .Font.Name = "Tahoma" .Font.Size = 9 .Font.Bold = False .CurrentY = 15 .CurrentY = .CurrentY + 10 .CurrentX = iPosX For i = 0 To List1.ListCount - 1 .CurrentX = iPosX Printer.Print List1.List(i) If i = iLines Then .NewPage DoEvents Next .EndDoc End With List1.Visible = True '... End If End Sub Für jeden Hinweis wäre ich dankbar!

Sauberer ListBox-Ausdruck

949

CarpeDiem

18.10.04 07:16

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