编程论坛 » ASP技术论坛 » asp导EXCEL问题

11 12 ››

打印

asp导EXCEL问题

gavinshming

新手上路

Rank: 1

帖子: 26
精华: 0
性别: 男
注册时间: 2006-1-17

1^# 大中小发表于 2008-4-11 16:35 只看该作者

asp导EXCEL问题

asp中设置EXCEL打印格式问题,ActiveSheet.PageSetup为什么不能用?
急!!!!!多谢各位大哥!!

搜索更多相关主题的帖子: EXCEL asp 打印 ActiveSheet PageSetup

TOP

gavinshming

新手上路

Rank: 1

帖子: 26
精华: 0
性别: 男
注册时间: 2006-1-17

2^# 大中小发表于 2008-4-11 16:49 只看该作者

版主救救我啊!1

那位大哥救救我啊!!谢谢!

TOP

yms123

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 7109
精华: 9
性别: 男
注册时间: 2004-7-17

3^# 大中小发表于 2008-4-11 17:05 只看该作者

没设置过，楼主用的是Excel2000还是2003或2007？

http://www.lxzhcn.net
版块版主招募中
网站论坛发帖无问题，欢迎发帖。

TOP

gavinshming

新手上路

Rank: 1

帖子: 26
精华: 0
性别: 男
注册时间: 2006-1-17

4^# 大中小发表于 2008-4-11 17:10 只看该作者

EXCEL2000

我用的是Excel2000,vb6.0就可以,asp中不知道为什么不行???

TOP

yms123

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 7109
精华: 9
性别: 男
注册时间: 2004-7-17

5^# 大中小发表于 2008-4-11 17:12 只看该作者

楼主想做什么功能？

http://www.lxzhcn.net
版块版主招募中
网站论坛发帖无问题，欢迎发帖。

TOP

gavinshming

新手上路

Rank: 1

帖子: 26
精华: 0
性别: 男
注册时间: 2006-1-17

6^# 大中小发表于 2008-4-11 17:22 只看该作者

在ASP导入EXCEL时,在ASP中用代码设置EXCEL的格式,比如设置为横向,还有页边距之类的.

TOP

gavinshming

新手上路

Rank: 1

帖子: 26
精华: 0
性别: 男
注册时间: 2006-1-17

7^# 大中小发表于 2008-4-11 17:25 只看该作者

With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA3
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With

TOP

gavinshming

新手上路

Rank: 1

帖子: 26
精华: 0
性别: 男
注册时间: 2006-1-17

8^# 大中小发表于 2008-4-11 18:55 只看该作者

谁救救我啊!
With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .Zoom = 100
    End With

以上代码在ASP中怎么不能用!