在VB中编程有些打印机参数设置不起作用,请兄弟们帮忙看看

mislrb 2005-11-25 10:55:13
我公司原本是部份novell网,部份NT网的,现在全部要将novell网转为NT,有部份打印服务器也转为NT的了.本人是在品质部门搞QIS系统维护的,这个系统主要是输出报废单到excel然后自动打印的,以前都是可以正常打印的,随著MIS转成NT网,现在设置的打印机参数对用打印服务器的打印机根本不起作用,但手动设置呢又可以设为60%(也就是说程序不能设置,但手动可以),比如我想缩小比率让excel可以一页打下,比率为60%,但实际出来还是100%,有一个部门我已经解决,不用打印机本身型号的驱动用它前一版驱动就可以正常打印了,但还有很多部门,我不想一个一个去调整(因为我没有ADMIN权限,找MIS太麻烦,他们也不是很合作)

哪位兄弟可以告诉我,用什么方法可以一劳永逸解决这个问题啊(主要是用户端我没权限去调整),在程序里能否实现完全忽略外部打印驱动改变引起的问题?

...全文
178 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
mislrb 2005-12-03
  • 打赏
  • 举报
回复
看来也没人来回这个问题的了,关贴
浩方软件HFWMS 2005-12-01
  • 打赏
  • 举报
回复
可能打印机的问题吧
mislrb 2005-11-25
  • 打赏
  • 举报
回复
没人碰到这样的问题吗?有的话请帮帮忙给个方法啊,分不够可再开贴加
mislrb 2005-11-25
  • 打赏
  • 举报
回复
好的,我再说详细一些
首先系统以前是正常的,现在转NT网后有些用户端打印出现问题,

程序里这样设置的如下
With .PageSetup
.Orientation = gOrientation
.LeftMargin = .InchesToPoints(gLeftMargin)
.RightMargin = .InchesToPoints(gRightMargin)
.TopMargin = .InchesToPoints(gTopMargin)
.BottomMargin = .InchesToPoints(gBottomMargin)
.HeaderMargin = .InchesToPoints(gHeaderMargin)
.FooterMargin = .InchesToPoints(gFooterMargin)
.CenterHorizontally = True
.PaperSize = gPaperSize
.Zoom =gZoom
end with

g开头的为INI文件中设置好的值,
像gZoom=70的话,正常打印时,这个参数在预览EXCEL时可以看到是70%,如果打印不正常时,永远都是100%的,无论你程序里设成多少,预览EXCEL时都不会变,

xingmaohai 2005-11-25
  • 打赏
  • 举报
回复
mislrb(aben)兄,

可否附上更詳細、清晰一些的例子,不很明了你所表述的內容?
mislrb 2005-11-25
  • 打赏
  • 举报
回复
补充一下,出现这种情况的一般都是HP laserjet 2100/2200的打印机
mislrb 2005-11-25
  • 打赏
  • 举报
回复
abcdefg

7,763

社区成员

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

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