vb@rchiv · Tipps & Tricks · Drucken in Spalten

Rubrik: Drucker | VB-Versionen: VB4, VB5, VB6

03.11.05

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

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

Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv

Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.