Pb调用VBA有的电脑正常有的电脑报错

最新推荐文章于 2025-09-12 07:15:01 发布
原创 最新推荐文章于 2025-09-12 07:15:01 发布 · 353 阅读 · 1 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#开发语言
在进行VBA编程时，遇到一个错误情况，当尝试使用Pagesetup方法时，部分电脑出现报错。经过排查，发现错误的根本原因是这些计算机没有安装打印机。这个问题表明，在执行涉及到打印设置的VBA代码时，确保用户环境中有可用的打印机是必要的。

最近在开发调用vba. Pagesetup时有的电脑会报错，经过几天努力找到问题了，原来报错的原因是电脑没装打印机，晕死了！

oActiveSheet.PageSetup.PrintTitleRows = "$1:$5" 
oActiveSheet.PageSetup.LeftHeader = "DAS for EDC V 5.0"
oActiveSheet.PageSetup.CenterHeader = ""
oActiveSheet.PageSetup.RightHeader = ""
oActiveSheet.PageSetup.LeftFooter

 

PB打印机设置.rar
02-15
调用当前电脑上所有已安装的打印机列表（包含共享打印机），设置默认打印机，设置打印纸张大小、方向、页边距、默认纸张等及安装打印机
【Excel VBA】PageSetup对象-打印设置
热门推荐
qq389445046的博客
03-13 1万+
我们在工作中经常会打印东西，会手动设置一些参数，如横向或竖向打印等。了解下PageSetup属性，用简短的几行代码设置好打印参数，便可以设置一次，永久使用，方便高效。 PageSetup对象代表页面设置说明。包含所有页面设置的属性(左边距、底部边距、纸张大小等)。 下例将打印方向设置为横向，然后打印工作表。 With Worksheets("Sheet1") .PageSetup...
Excel-常用宏技巧（4）
gxiyv的专栏，欢迎您的光临指导！
04-20 4806
自动隐藏表格中无数据的行表1 是数据源，经常改变； 表2 引用表1 中某列有数据的单元格（利用动态位址已实现。） 由于表1 的改变，表2 的大小随之而变。 问题：如何实现表2 中没有数据的行（有公式）自动隐藏？谢谢赐教！ Sub abc() For i = 1 To 300 If Cells(i, 1).value = "" Then Rows(i).Hidden =
使用EXCEL制作通用打印模块
06-01 1638
{eclApp.ActiveSheet.PageSetup.PaperSize := xlPaperA3;       //设置纸张的类型   eclApp.ActiveSheet.PageSetup.Orientation := xlLandscape; //设置是横向打印还是纵向打印   eclApp.ActiveSheet.PageSetup.PrintTitleRows := '$3:$5';　　//设置表头重复如果多页的情况下   eclApp.ActiveSheet.PageSetup.Cent
PB打开EXCEL文件报错
ribut9225的专栏
03-04 2660
OLEObject ExcelServer Integer ExcelOk stringls_pathname ls_pathname="e:\gzdr\book1.xlsx" IFFileExists(ls_pathname)=FALSEthen MessageBox("msg","Fileisnotfound") return endif ExcelServer=C...
pb调用ole异常捕获
viviliving的专栏
10-19 992
global type gf_title2cn from function_object end type forward prototypes global function integer gf_title2cn (string fn) end prototypes global function integer gf_title2cn (string fn); int li_result string ls_v ls_v=space(1000) if outtype<>excel.
PB导出EXCEL
clice30145的专栏
07-15 3590
<br />基本操作:<br />Ole_object.Workbooks.add//新建一个Excel文件<br />Ole_object.Workbooks.Open("FileName")//打开一个已存在Excel文件<br />Ole_object.ActiveWorkBook.Sheets("SheetName").Select//选择文件中一个工作表<br />Ole_object.Application.Run("MacroName")//运行宏<br />Ole_object.Applic
pb90代码如何连接sql2008r2_如何在两个不同的SQL中建立内连接
weixin_39843986的博客
12-03 171
大家好,今日继续讲解VBA数据库解决方案，今日的内容是第67讲：内连接INNER如何在两个不同的SQL中建立连接。今日的内容是之前内容的延伸，在前面的讲解中我讲了利用INNER连接的两个数据源都是字段值与值的条件匹配，如果字段不是唯一值时数据会报错。如何理解这个问题呢？所谓连接，目的是查询，找出条件相同值的匹配，对于一对多，或者多对一的匹配，在内连接中是无法建立起对应关系的，多对一，或者一对多如何...
批量横向打印Excel
wl05031的专栏
01-07 1863
使用VBA脚本写的，具体使用如下：在批量需要打印的Excel文档下面，新建一个文档，将代码粘贴VBA工程里，然后运行即可。 具体代码如下: Attribute VB_Name = "模块1" Sub PiLiangPring() Attribute PiLiangPring.VB_ProcData.VB_Invoke_Func = " \n14" Dim curPath As Stri
VBA 打印设置相关属性及方法
wq54452114的博客
09-04 6390
打印设置说明，以下均为默认值。 With ActiveSheet.PageSetup .PrintTitleRows = "" '工作表打印标题：顶端标题行(R) .PrintTitleColumns = "" '工作表打印标题：左端标题列(C) End With...
vba，设置，excel，wps ，页面设置
11-03 2235
全面认识页面设置之 PageSetup 对象我们在写 VBA 代码时，特别是做小型程序开发时，经常会用 VBA 来设置“页面设置”中的选项，还可用要用 VBA 来实现一些特殊的效果，这就需要使用 PageSteup 对象。PageSetup 对象包含所有页面设置的属性（左边距、底部边距、纸张大小等）。此对象共有 49 个属性，其中：8 个属性是 EXCEL2007 新添加的，1 个属性在...
springboot java8使用jacob，aspose两种方式实现excel、word转pdf
weixin_48776118的博客
05-14 2859
其实还有一种spire转化PDF，不过这种是收费的还有限制只能导出3个sheet页数据也有限制 1.使用jacob 1.1引入依赖 <!--jacob依赖--> <dependency> <groupId>com.jacob</groupId> <artifactId>jacob</artifactId> <versio
创建此对象的程序是quation_Excel 学习 PageSetup 对象
weixin_29056701的博客
12-21 460
PageSetup 对象 (Excel)PageSetup 对象代表页面设置说明，包含作为特性的所有页面设置属性(左边距、下边距、纸张大小等)。通过VBA代码的PageSetup对象设置页面边距属性。默认页面布局效果VBA代码修改后效果属性说明：AlignMarginsHeaderFooter 属性：返回True excel 以对齐的边距设置页面设置选项中的页眉和页脚。Application 属性...
不能设置类PageSetup的Zoom属性
weixin_34090643的博客
10-20 1567
程序使用VBA导出数据到EXCEL时提示“不能设置类PageSetup的Zoom属性”。那段程序语句是“XXX.PageSetup.Zoom = 80”。经过查找，终于找到了原因：当您的计算机上没有安装打印机驱动程序时，会出现此问题，Excel 不能设置或获取页面设置属性。 解决方法：使用控制面板中的”打印机”选项来添加打印机驱动程序，添加打印机即可，也可添加一个虚拟打印机。 其实如果没有安装...
VBA常用页面设置代码
ribut9225的专栏
02-11 849
VBA
access的papersize命令_[求助]局域网中共享打印机不能设置类 PageSetup 的 PaperSize 属性...
weixin_39556702的博客
12-24 1462
如标准，PDF打印机不报错，但局域网中的共享打印机报“不能设置类 PageSetup 的 PaperSize 属性”错误。Print Spooler服务已启动。Dim fl As String = ProjectPath & "Reports\冲压制令单.xls"With Tables("冲压生产计划追踪表")If .TopPosition > -1 Then '如果选定区域包括数据...
在VBA中，PageSetup对象有什么方法与属性（源码示例）
最新发布
fsyuheduo的博客
09-12 682
在VBA中，HPageBreaks对象和HPageBreak对象有什么方法与属性。在VBA中，分页符-VPageBreaks集合（源码示例）在VBA中，分页符-VPageBreak对象（源码示例）分享高效VBA代码：批量设置打印分页符一个卡片一页。Excel VBA 进阶｜分页符自动化处理（一）Excel VBA 进阶｜分页符自动化处理（二）Excel VBA 进阶｜分页符自动化处理（三）三、常用的属性设置（代码示例，详情在注释中）Excel中设置A4横向打印，边距2cm。2. 页边距设置（单位：磅）
设置标题及行高
builderwfy的专栏
06-12 2153
var allTr = document.getElementById("dwResult_datawindow").getElementsByTagName("TH");~r~n& for(var i=0;i { ~r~n&     allTr[i].style.height="28";~r~n& }~r~n& var allTd = document.getElementById("
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值