✔ Drucken einer Tabelle

N

Nichtwisser

Moin,moin!

Ich möchte eine Tabelle mit Zahlen #.##0,00 € drucken.
Die Zahlen sollen rechtsbündig geordnet werden.
Hat irgend jemand eine Idee wie dieses zu bewerkstelligen ist.
Im voraus besten Dank und einen schönen Tag.

MfG
Otto
 
Hallo Filone,

habe ein kleines Programm erstellt.
Die Werte der Zahlen sind unterschiedlich.

Beispiel:
Printer.Print "Einkommen"; Tab(46); e; ",00 €"
Printer.Print "Einkommensteuer"; Tab(46); est1; ",00 €"
Printer.Print "Kirchensteuer"; Tab(48); kst1; ",00 €"
Printer.Print "Solidaritätszuschlag"; Tab(48); so1; ",00 €"

Beim Ausdruck mit dem Zahlenformat #.##0,00 €, sollen alle Werte
rechtsbündig geordnet werden damit die Tabeinstellung wegfallen kann.
Ich muß sonst bei unterschiedlicher Eingabe in "e" die Tabs immer ändern.
Vielleicht kannst du helfen....!
Im voraus besten Dank und einen schönen Tag.

MfG
Otto
 
Du koenntest die Zellen mittels Cells[y,x].HorizontalAlignment=xlHAlignRight aus dem Script heraus rechtsbuendig formatieren. Oder 'ne Range benutzen um alles auf einen Schlag zu alignen, waere vielleicht einfacher.

Nachtrag: Geht doch um Excel, oder?
 
Also ich weiß nicht ob ichs jetzt begriffen habe, aber "... I´ll do my very best.".

Wenn Du per VB auf Excel zugreifst hast Du Dir ja bereits einen Objektverweis eingestellt und die Tabelle geöffnet. Dann kannst Du auch einen Objektverweis auf eine Zelle erstellen und die Formatierung vornehmen, also in PseudoCode :

Code: 
Dim clsSelected as xlSheet.Cells

Set clsSelected = xlSheet.Cells(x,y).Select --> vielleicht heißt es auch 'Range', bin mir da nicht sicher

With clsSelected
 .Alignment = Left
 .Font = WasAuchimmer
 .ForeColor = vbBlack
End With

xlSheet.Printout --> oder wie auch immer das heißt.

So müsste das dann gehen, ich hab jetzt kein VB hier um es zu testen weil ich an der Uni bin.
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück