Drucken in Spalten Dieses Beispiel zeigt, wie man Daten in mehreren Spalten sauber untereinander ausdrucken kann
Autor:   Zardoz	Bewertung:     [ Jetzt bewerten ]	Views:  14.343
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 24 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser Tipp zeigt, wie man Daten in mehreren Spalten sauber untereinander ausdrucken kann.

Beispiel:
Es soll eine Liste wie nachfolgend ausgedruckt werden:

Datum      Fahrziel                      KM      Kosten
14.10.05   München, Flughafen            35      50,00 EUR
17.10.05   Frankfurt, Stadtmitte         56      87,00 EUR
19.10.05   München - Sendling            17      26,50 EUR

Das Drucken in Spalten kann man durch Angabe von fest vorgegebenen Tabulatorpositionen wie folgt realisieren:

ReDim TabPos(2) As Long
 
TabPos(0) = 15   ' 1. Tab
TabPos(1) = 60   ' 2. Tab
TabPos(2) = 70   ' 3. Tab
 
' Datenzeilen
ReDim sLine(3)
sLine(0) = "Datum;Fahrziel;KM;Kosten"
sLine(1) = "14.10.05;München, Flughafen;35;50,00 EUR"
sLine(2) = "17.10.05;Frankfurt, Stadtmitte;56;87,00 EUR"
sLine(3) = "19.10.05;München - Sendling;17;26,50 EUR"
 
Dim i As Long
Dim u As Long
Dim sData() As String
 
' Datenzeilen drucken
For i = 0 To UBound(sLine)
  sData = Split(sLine(i), ";")
 
  Printer.Print sData(0);
  For u = 1 To UBound(sData)
    Printer.Print Tab(TabPos(u - 1)); sData(u);
  Next u
  Printer.Print
Next i
Printer.EndDoc