Entwickler-Ecke :: Thema anzeigen - Druckeinstellungen und Zellenformatierung in Excel

AceTheFace - Mi 29.01.03 12:33
Titel: Druckeinstellungen und Zellenformatierung in Excel

Hallo,

ich will ein StringGrid über Excel ausdrucken lassen, da mir des Drucken in Delphi doch etwas zu komplex ist... :)

Dazu schreibe ich erstmal mein komplettes StringGrid in ein ExcelWorksheet. Das klappt auch wunderbar. Wenn ich das dann aber über ExcelWorksheet1.printout; ausdrucke, druckt er das immer hochkant aus...wie kann ich den Excel sagen, dass er querformatik drucken kann?

Auf dieser Seite (-> http://www.djpate.freeserve.co.uk/AutoExcl.htm ) habe ich jetzt auch gefunden wie man Zellen bzw. Bereiche formatieren kann. Allerdings funktioniert das nicht.

Ich probiere das so:

Quelltext

1:
2:
3:

ExcelWorksheet1.Range['A'+IntToStr(y+2),'O'+IntToStr(y+2)].HorizontalAlignment:=xlAlignRight;

ExcelWorksheet1.Range['A'+IntToStr(y+2),'O'+IntToStr(y+2)].Font.FontStyle:='bold';

y ist meine Zeilenangabe (y+2=akt. Zeile)

Rechtsbündig macht er teilweise aber nicht über den kompletten Bereich den ich angegeben habe.
Und fett beachtet er gar nicht....

Wäre nett wenn mir jmd. helfen könnte!

Gruß,

Ace

Keldorn - Sa 01.02.03 21:43
Titel: Re: Druckeinstellungen und Zellenformatierung in Excel

AceTheFace hat folgendes geschrieben:

. Wenn ich das dann aber über ExcelWorksheet1.printout; ausdrucke, druckt er das immer hochkant aus...wie kann ich den Excel sagen, dass er querformatik drucken kann?

Zeichne ein Makro im Excel auf und schau es dir in Vb an.
Du kannst das Pagesetup der akteullen Seite ändern, dort gibt es z.B. .Orientation = xlLandscape und deine Seite ist in Querformat und wird auch so ausgedruckt

das mit dem Makro gilt auch für das zweite Problem

Mfg Frank

Keldorn - Sa 01.02.03 23:23

AceTheFace hat folgendes geschrieben:

Ja, aber ich habe das mit dem Align ja schon mit xlAlign versucht.....

zeichne ein Makro im Excel an und schau es dir in VB an.
auszug aus dem VB-Makro

Quelltext

1:
2:

Selection.HorizontalAlignment = xlRight
Selection.Font.Bold = True

wenn du bei Range ein [A,K] angibst, bedeutet das normalerweise A und K und nicht A bis K, wenn du ein makro aufzeichnest, steht da A:K.

Mfg Frank

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!