PaperSize = vbPRPSUser 提示错误

jzkaixin 2012-03-29 10:56:25

最近用 Printer 写了一个打印
我在本机测试打印没问题，在同屋的电脑安装打印也没有问题
但是到客户那里打印就出现 run-time error '380':Invalid property value 错误

后来我我在VB下运行找到错误行 .PaperSize = vbPRPSUser 去掉以后可以正常打印
请问这是什么原因啊
系统都是 XP 的打印机也是一样的 HP1020 激光打印机

只是有一点不同我在公司测试的时候用的是网络共享的打印机而在客户那里用的是本地打印机
虽然去掉 .PaperSize = vbPRPSUser 依然可以使用
但是我想弄明白是什么原因期望大家能给我讲一下！
谢谢！

With Printer
.PaperSize = vbPRPSUser ' 用户自定义
.ScaleMode = vbTwips
.FontSize = 10 '字体大小
.FontBold = False
.FontItalic = False '斜体字
.FontUnderline = False '下划线
.ScaleLeft = 0
.ScaleTop = 0
.Width = PapeSizeW '纸张大小
.Height = PapeSizeH
.CurrentX = 0
.CurrentY = 0
End With

...全文

347 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

worldy 2012-03-30

打赏
举报

回复

对于激光打印机，驱动程序应该不接受用户自定义纸张（固定纸张大小）
另外，这位朋友既然设置了.Width = PapeSizeW .Height = PapeSizeH，就不需要设置PageSize参数，因为设置width、height时，VB会自动将PageSize更改为vbPRPSUser

jzkaixin 2012-03-30

打赏
举报

回复

哦！明白了
谢谢！

神马被哪个妞占用了呢 2012-03-30

打赏
举报

回复

是不是该用户没有自定义纸张？

XLSReadWriteII5 导出EXCEL，收集更加全面的基本设置，网上的资源太散了，希望对某些人有用

resize figure on screen according to papersize. in matlab

话不多说，解释在代码注释中…… class PrintClass { #region 全局变量 private DataGridView datagrid;//需要打印的数据来源 private PageSetupDialog pagesetupdialog; private PrintPreviewDialog printpreviewdialog; int currentpageindex = 0;//当前页的编号 int rowcount = 0;//数据的行数 public Size PaperSize = new Size(827, 1169);//答应

重点： <OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0 VIEWASTEXT> </OBJECT> <input type=button value=打印 " class= "NOPRINT "> <input type=button value=直接打印 " class= "NOPRINT "> <input type=button value=页面设置 " class= "NOPRINT "> <input type=button value=打印预览 " class= "NOPRINT "> 注意： 1、CSS对打印的控制：  <style media=print> .Noprint{display:none;} .PageNext{page-break-after: always;} </style> Noprint样式可以使页面上的打印按钮等不出现在打印页面上，这一点非常重要，因为它可以用最少的代码完成最需要的功能 PageNext样式可以设置分页，在需要分页的地方就OK了，呵呵 2、表格线粗细的设置，更是通过样式表： <style> .tdp { border-bottom: 1 solid #000000; border-left: 1 solid #000000; border-right: 0 solid #ffffff; border-top: 0 solid #ffffff; } .tabp { border-color: #000000; border-collapse:collapse; } </style> 或者： <style> .TdCs1 { border:solid windowtext 1.0pt; } .TdCs2 { border:solid windowtext 1.0pt; border-left:none; } .TdCs3 { border-top:none; border-left:solid windowtext 1.0pt; border-bottom:solid windowtext 1.0pt; border-right:solid windowtext 1.0pt; } .TdCs4 { border-top:none; border-left:none; border-bottom:solid windowtext 1.0pt; border-right:solid windowtext 1.0pt; } .underline { border-top-style: none; border-right-style: none; border-bottom-style: solid; border-left-style: none; border-bottom-color: #000000; } </style> 1、控制 "纵打 "、横打”和“页面的边距。（1） [removed] function SetPrintSettings() { 　// -- advanced features 　factory.printing.SetMarginMeasure(2) // measure margins in inches 　factory.SetPageRange(false, 1, 3) // need pages from 1 to 3 　factory.printing.pri

Delphi 设置打印纸张大小，手动设置打印纸的长度和宽度，自定义纸张。相关代码：　　procedure TForm1.SetPaperSize(cx, cy: Integer); 　　var 　　 a,b,c: array[0..255]of char; 　　 bb: Cardinal; 　　 ee: PDEVMODE; 　　begin 　　 printer.PrinterIndex := printer.PrinterIndex; 　　 printer.GetPrinter(a,b,c,bb); 　　 ee:= GlobalLock(bb); 　　 ee^.dmPaperSize := DMPAPER_USER; 　　 ee^.dmPaperLength := cy*10; 　　 ee^.dmPaperWidth := cx*10; 　　 ee^.dmFields :=ee^.dmFields or DM_PAPERSIZE or 　　 DM_PAPERWIDTH or 　　 DM_PAPERLENGTH; 　　 ee^.dmFields := ee^.dmFields or DMBIN_MANUAL; 　　 ee^.dmDefaultSource :=DMBIN_MANUAL; 　　 GlobalUnlock(bb); 　　 printer.PrinterIndex := printer.PrinterIndex; 　　end;

数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章