关于打印预览没有最法最大化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于打印预览没有最法最大化

共有2430人关注过本帖树形打印复制链接主题：关于打印预览没有最法最大化

dj68301367

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00

关于打印预览没有最法最大化 发帖心情

Post By：2015/5/29 13:51:00 [只看该作者]

目前做了一个打印预览，但是预览的窗口比较小，怎么样才可以最大化

Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Mname & ".xls") '打开模板

Dim fl As String = ProjectPath & pname

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成报表

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim Rg As MSExcel.Range = Ws.Cells

'Rg.EntireColumn.AutoFit '自动调整列宽

Rg.EntireRow.AutoFit '自动调整行高

App.Visible = True

Ws.PrintPreview

wb.DisplayFullScreen = True ‘全屏显示

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/29 14:35:00 [只看该作者]

加一句

ShowAppWindow(pname,2)

http://www.foxtable.com/help/topics/2713.htm

dj68301367

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/3 10:26:00 [只看该作者]

经调试不行！用ShowAppWindow(pname,2) 也不行

Function MyPrintAll(Mname As String,PName As String)

Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Mname & ".xls") '打开模板

Dim fl As String = ProjectPath & pname

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成报表

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim Rg As MSExcel.Range = Ws.Cells

'Rg.EntireColumn.AutoFit '自动调整列宽

Rg.EntireRow.AutoFit '自动调整行高

App.Visible = True

Ws.PrintPreview

ShowAppWindow(fl,2)

End Function

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/3 10:31:00 [只看该作者]

Function MyPrintAll(Mname As String,PName As String)

Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Mname & ".xls") '打开模板

Dim fl As String = ProjectPath & pname

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成报表

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim Rg As MSExcel.Range = Ws.Cells

'Rg.EntireColumn.AutoFit '自动调整列宽

Rg.EntireRow.AutoFit '自动调整行高

App.Visible = True

ShowAppWindow(pname,2)

Ws.PrintPreview

End Function

dj68301367

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/3 10:53:00 [只看该作者]

请看图片，还是不行！！

Function MyPrintAll(Mname As String,PName As String)

Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Mname & ".xls") '打开模板

Dim fl As String = ProjectPath & pname

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成报表

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim Rg As MSExcel.Range = Ws.Cells

'Rg.EntireColumn.AutoFit '自动调整列宽

Rg.EntireRow.AutoFit '自动调整行高

App.Visible = True

ShowAppWindow(Pname,2)

Ws.PrintPreview

End Function

dj68301367

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/3 10:54:00 [只看该作者]

此主题相关图片如下：as.png

再传一次

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/3 10:55:00 [只看该作者]

不可能，测试没有问题。http://www.foxtable.com/help/topics/2713.htm

dj68301367

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/3 11:53:00 [只看该作者]

可是我的就是不行，会不会是因为|Excel的问题呀，

你也看得到我的代码，我是直接复制上来的

大红袍

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/3 12:40:00 [只看该作者]

pname 直接改成文字比如 12345.xls

大红袍

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/3 12:42:00 [只看该作者]

我这样测试

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
'Rg.EntireColumn.AutoFit '自动调整列宽
Rg.EntireRow.AutoFit '自动调整行高
App.Visible = True

ShowAppWindow("test.xls",2)
Ws.PrintPreview

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：关于打印预览没有最法最大化