Dieser Tipp zeigt, wie man Daten in mehreren Spalten sauber untereinander ausdrucken kann. Beispiel: 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 Dieser Tipp wurde bereits 14.341 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |