Autor Beitrag
AceTheFace
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 39



BeitragVerfasst: Mi 29.01.03 12:33 
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 (-> 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:

ausblenden 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 2266
Erhaltene Danke: 4

Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
BeitragVerfasst: Sa 01.02.03 21:43 
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

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)
AceTheFace Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 39



BeitragVerfasst: Sa 01.02.03 22:39 
Ja, aber ich habe das mit dem Align ja schon mit xlAlign versucht.....
Keldorn
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 2266
Erhaltene Danke: 4

Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
BeitragVerfasst: 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
ausblenden 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

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)