VB利用EXCEL打印预览问题

游子 2011-09-04 04:08:01
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True '让Excel可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xlt") '打开Excel模板
xlBook.ActiveSheet.Cells(3, 2) = txtName.Text
xlBook.ActiveSheet.Cells(3, 4) = Comsex.Text
xlBook.Sheets("sheet1").Select
xlApp.ActiveSheet.Pictures.Insert(App.Path & "\temp.jpg").Select
Set Rng = xlApp.Range("L3:M9")
With xlApp.Selection
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Rng.Height
.ShapeRange.Width = Rng.Width - 2
.Top = Rng.Top + 1
.Left = Rng.Left + 1
End With
xlBook.PrintPreview '打印预览
xlBook.Close False '关闭工作簿
xlApp.Quit '关闭Excel
Set xlBook = Nothing
Set xlApp = Nothing
以上代码是打印预览，现在的问题如何实现只预览和打印指定的单元格，如只预览和打印(A1,H11)。
如果要实现赋值以后直接打印，不预览应该如何做？非常感谢高手指点一下。谢谢。
...全文
275 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
c_cyd2008 2011-09-05
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 nxslwh 的回复:]
引用 1 楼 c_cyd2008 的回复:
VB code

xlApp.ActiveSheet.PageSetup.PrintArea = "$A$1:$H$11" '设置打印区域
xlApp.ActiveSheet.PrintOut '打印


请教这个怎么没有打印预览啊？？
[/Quote]
我晕,你的不是有吗?


xlBook.PrintPreview '打印预览
游子 2011-09-05
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 c_cyd2008 的回复:]
引用 4 楼 nxslwh 的回复:
引用 1 楼 c_cyd2008 的回复:
VB code

xlApp.ActiveSheet.PageSetup.PrintArea = "$A$1:$H$11" '设置打印区域
xlApp.ActiveSheet.PrintOut '打印


请教这个怎么没有打印预览啊？？

我晕,你的不是有吗?

VB code

xlBo……
[/Quote]
我的意思是预览也只预览（A1，A11）的区域。
游子 2011-09-04
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 c_cyd2008 的回复:]
VB code

xlApp.ActiveSheet.PageSetup.PrintArea = "$A$1:$H$11" '设置打印区域
xlApp.ActiveSheet.PrintOut '打印
[/Quote]

请教这个怎么没有打印预览啊？？
神马被哪个妞占用了呢 2011-09-04
  • 打赏
  • 举报
 回复
有一个功能叫“录制宏”
贝隆 2011-09-04
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 c_cyd2008 的回复:]
VB code

xlApp.ActiveSheet.PageSetup.PrintArea = "$A$1:$H$11" '设置打印区域
xlApp.ActiveSheet.PrintOut '打印
[/Quote]

＋1
c_cyd2008 2011-09-04
  • 打赏
  • 举报
 回复 


xlApp.ActiveSheet.PageSetup.PrintArea = "$A$1:$H$11"    '设置打印区域

xlApp.ActiveSheet.PrintOut    '打印
功能强大的免费DataGridView打印控件
注意：本3.0版控件过于老旧，该控件最新版本为4.7版，您可以到http://myyouping.download.csdn.net/免费下载，也是完全免费的，没有任何功能及使用时间限制，0积分下载。我将3.0版控件的下载分提为10分，是希望大家使用最新版的控件。 控件特色： 1、超强大的DataGridView打印功能，不光可以以多种形式（普通打印、分栏打印、跨页打印、工资条打印）打印DataGridView表格，基本上能完全按DataGridView控件本身设置的格式如字体、字号、背景颜色、前景颜色、单元格对齐方式等打印出来，文字图像都可以打印，而且是完全根据表格当前的显示顺序进行打印的，如果您在使用时调整了列的顺序，刷新打印后就会按调整后的列显示顺序进行打印（这是网上很多DataGridView打印控件没有实现的），基本上做到了所见即所得的打印。 2、强大的文本打印输出功能，打印文本时，如果需要，控件会自动换行或换页打印输出。 3、支持同一文档多种版面格式打印（类似于Word中的节的功能）：对同一份文档，不同的页面可以设置不同的格式（纸张大小、纸张方向、页边距），只需要在新增一页时在NewPage方法中指定要使用的页面格式即可，使用非常简单。 4、报表功能。本控件允许将当前打印预览的内容保存为报表文件，以后使用本控件重新打开该报表文件即可重现原来保存报表时的打印内容。 5、打印方案保存与读取功能。可以将当前打印参数保存为打印方案文件，或都从保存的打印方案文件中读取打印参数。 6、水印功能。根据需要，可以在页面中打印或不打印以半透明空心文字打印水印。 7、特殊文字效果功能。本版控件具有打印浮雕文字、阴影文字、空心文字、块文字的功能，效果非常不错。 8、页眉页脚中既可打印文字，也可打印图像，或者即打印图像又打印输出文字。 9、图像打印输出功能。 本控件包括两个打印组件：DGVprint打印组件与VB2008print打印组件。VB2008Print为通用打印控件（为可视化组件），可以混合打印一个或多个DataGridView表格、DataGrid表格与文字、图片等内容；而DGVprint是以VB2008Print为基础开发的（为非可视化组件），为专用的表格打印控件，可以很方便打印单个DatatGridview、DataGrid、DataTable表格的内容，并提供打印时的可视化设置界面，可设置表格打印方式(普通打印、分栏打印、跨页打印、工资条打印）、标题内容及字体、页眉页脚、选择要打印的表格列、列顺序调整及列格式设置、更改列标题名称等，使用非常方便，功能非常强大。 与本控件的上一个版本2.1版相比，本版控件新增功能如下： VB2008Print打印组件新增功能： 1、多种特效文字打印输出功能，能打印的特效文字有 空心文字、浮雕文字、块文字、阴影文字等。 2、水印打印功能。可以在面页中以半透明空心文字的形式打印背景水印，只需要简单设置控件的WaterMarkText等几个以WaterMark开头的属性即可，程序会自动打印水印。 3、PrintDGV函数可直接使用DGVPrint组件保存的打印方案文件打印输出DataGridView表格, 4、在页眉页脚中不光可以打印文本，还可以打印图像，文本与图像可同时打印（即在图像上显示文本）。此外，页眉页脚文字可以换行打印了，页面的左边也右边距也可以打印内容了（调用相应的函数PrintLeft与PrintRight实现）。 5、改进DrawText函数输出文本的功能，现在，即便调用没有指定打印区域或打印宽度的DrawText函数输出文本，打印输出时控件也会智能换行和换页（原版本是需要指定打印宽度才能自动换行换页打印的） 6、改进DrawImage与DrawCellImage输出图像功能，如果图像比较小（小于打印区域大小），可以不进行放大打印。（但如果图像大于打印区域的话，还是采用整体缩小打印，而不是区域剪裁打印）。 7、增加IsShowPrintStatusDialog属性，指示在发送到打印机打印时，是否显示一个指示正在打印的状态窗口（可以取消打印），为TRUE表示要显示，为False表示不显示。 8、改进页眉页脚事件，将原来的HeaderOut与FooterOut统一为HeaderFooterOut事件，在该事件中,您可以调用PrintFooter、PrintHeader、PrintLeft、PrintRight函数分别打印上下左右的页眉。（PrintLeft与PrintRight函数为新增加的，用于在左边与右边页边距处输出内容） DGVPrint打印组件新增功能： 1、打印方案保存与读取功能。本版控件可以将您的可视化设置（包括列格式设置等）全部保存为打印方案文件（文本文件，您可以用记事本打开并修改），并有读取方案文件的功能，不再需要每次都进行打印格式设置了，一劳永逸！ 2、直接调用打印方案文件打印功能。您不光可以设计DGVPrint打印组件的属性来进行打印，还可以直接调用DGVPrint组件中保存的打印方案文件，直接利用保存的方案文件的参数进行打印预览输出。 3、新增在可视化打印参数设置界面的列标题重命名功能，可能修改列标题要打印的名字。 4、水印打印功能。如果水印文本设置为空，则不打印水印。 5、导出数据成Excel功能。暂未提供该功能的函数接口，只在打印参数设置窗口中增加了一个数据导出的按钮，可以将当前要打印的DataGridView的内容导出成Excel文件。该功能以后会进一步完善。 6、在进行页眉页脚文本设置时，可以用 [页码] 代表要输出的当前页码，用 [总页数] 代表要输出总页数，控件在进行输出时，会自动将其转换为对应的页码与文档总页数。
VB.NET开发Excel插件实例课程
手把手教您如何快速开发一个属于自己的Excel插件，制作Excel众多功能，办公自动化，高效率办公，开发一个个性化的excel插件。我会从头到尾开始教学，开发过程常遇到什么问题，该如何解决。记录我开发excel插件的案例和问题，将开发经验分享给大家
SOAOFFICE - 微软 OFFICE 中间件
SOAOFFICE - 微软 OFFICE 中间件 SOAOffice 中间件是北京科翰软件为微软OFFICE量身打造的Web中间件，是Web调用Office、存取Office数据的必备中间件。SOAOffice中间件由服务器端数据组件和客户端显示控件构成。 SOAOffice 完全抛弃了传统利用Office服务器端自动化技术存取文档数据的种种弊端和缺陷，采用独创的专利技术构建了一个功能强大、简单易用的微软Office中间件平台，平台提供标准的.net和java组件接口，不但能够在线（浏览器页面）打开、编辑、保存Office文档，而且开发人员还能够以简洁的代码快速的将数据库数据动态填充到Office文档指定位置，并且也能够从Office文档中提取指定位置的数据保存到数据库。 SOAOffice提供这些强大功能的同时，服务器端并不需要安装运行Office软件。通过SOAOffice，在Web世界里，难以驯服的Word/Excel就变成了普通的、熟悉的、服务器端可调用的.Net组件、Java组件、ASP组件、PHP组件，开发人员再也不用研究复杂的Word/Excel COM自动化细节、学习复杂的VBA语法调用，也不用去应对Word/Excel死进程、系统稳定运行的问题。开发人员能够节省宝贵的精力和时间，把它投放到更重要的业务逻辑和系统架构上，而控制Office的具体技术细节交给SOAOffice去做。 SOAOffice除了提供Word/Excel动态数据填充，Word/Excel数据导入导出，Word/Excel/PowerPoint等Office文档的在线打开、编辑、保存，权限控制，只读控制等功能外，还给在线办公内置了强大的支持功能：强制痕迹保留，手写批注，圈阅签字，手写签名，电子印章、数字签名、模板套红、一键套红等。 科翰软件是国内唯一的微软Office中间件开发商，拥有卓越的自主研发实力和独创的专利技术，其产品SOAOffice不仅畅销国内，而且还远销欧美国际市场，其中世界500强美国Dover集团、可口可乐 Coca-Cola、中石油、中石化等都是SOAOffice产品的忠实客户。 SOAOFFICE中间件主要应用在Web系统下所有涉及编程调用Office的领域，例如： 1. 需要把数据库字段内容填充到Word/Excel指定位置的； 2. 需要把Word/Excel指定位置的内容提取出来保存到数据库字段的； 3. 需要动态生成指定格式的Word文档的； 4. 需要把html页面中表格导出到excel的； 5. 需要在html页面中套打票据、报表的； 6. 需要在html页面中显示复杂报表，并要求精确打印预览及打印的； 7. 需要动态生成中国式复杂格式报表的； 8. 需要在html页面中输入复杂票据的； 9. 使用COM服务器自动化技术调用Word/Excel经常产生死进程或系统不稳定的； 10.Web系统中调用Word/Excel的页面有大量并发用户访问的； 11.使用jacob、jxl、apache poi的； 12.需要在Web中调用Word/Excel，并且追求系统运行稳定、可靠的； 13.最终用户可以浏览 Word/Excel/Ppt 文档内容，但需要禁止复制、粘贴、下载、另存的； 14.需要在html页面中在线编辑Word公文的； 15.需要在协同办公中强制保留Word修改痕迹的； 16.需要在协同办公中手写批注、手写签名、加盖电子印章、模板套红的； 17.需要在新闻编辑中强制保留Word修改痕迹、手写批注、圈阅的； 18.需要在远程教育中实现试卷、作业在线批改的。 19.需要在html页面中把Word转换为pdf的； 20.需要在html页面中快速打开、显示pdf的； 21.需要在Ajax架构里调用Word/Excel的，包括服务器端和客户端Javascript都适用。 22.需要控制不同的用户在Word/Excel中不同的区域中编辑权限的； 23.需要在企业局域网内架设在线Office文档中心、知识管理的； 24.需要在web页面导入导出Excel单元格数据的； ……… SOAOFFICE中间件包括三个内置组件：SOAExcel、SOAWord、SOAPowerPoint。另外企业版还包括支持PDF文件的SOAPDF组件。 SOAOFFICE 中间件采用标准HTTP传输协议，跨平台性好，支持任意Web服务器（IIS，WebLogic，WebSphere，Apache，Tomcat，Domino等），任意服务器操作系统（Win2k， Win2003，Win2008，Linux，Unix等），任意数据库（Access，SQL Server，Oracle，MySQL，DB2，Sybase等），以及任意WEB编程语言和Web架构（C#，Java，VB.Net，PHP，DOMINO，JSP，ASP，J2EE，ASP.NET，Ajax等）。SOAOFFICE同时支持C/S方式的编程和其他支持ActiveX的容器，您可以在VB，Delphi以及C++ Builder中使用本中间件，快速创建C/S结构的应用。 SOAOFFICE中间件是一个国际化产品，支持多种界面语言：简体中文、繁体中文、英语、日语、法语、德语等。
VB基础类

7,763

社区成员

197,605

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章