怎么写代码把Excel的页面设置成横向的？(20分)

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-31

• #1

使用CreateOleObject把数据写入Excel2000,
MyExcel:=CreateOleObject('Excel.application');
MyExcel.visible:=true;
MyExcel.caption:='test';
MyExcel.Workbooks.add;
怎么写代码把Excel的页面设置成横向的？

 

龙

龙龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-02

• #2

你在电脑中查找*vba*.hlp,有个vba for excel的你看看就知了好简单的

 

L

leonmtv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #3

你開啟vba,然後檢查它的語句就什麼操作都知道,你一定要給我分羅

 

L

lovefox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #4

呵呵，我来了。解决你的问题。
//进行页面设置
Sheet.PageSetup.Orientation := 2;
//1:纵向 2横向 打印
Sheet.PageSetup.CenterHorizontally := True;//在页中间打印
Sheet.PageSetup.FirstPageNumber :=xlAutomatic;//对页编号
sheet.pagesetup.CenterFooter := '第 &P 页'+'共 &N 页';//获取页码
这几个是我比较常用的属性

 

T

todayisthursday

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-24

• #5

上面的代码略有错误
sheet应该改为ActiveSheet，不然会报错
如：
Excel.ActiveSheet.PageSetup.Orientation := 2;

 

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-24

• #6

请问如何能查到这些资料呢？先谢谢各位

 

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #7

多人接受答案了。