7522
社区成员
下面的代码为何只进纸而确无法打印？？？
Private Sub Command1_Click()
Printer.ScaleMode = vbMillimeters '厘米
Printer.Width = 190
Printer.Height = 100
Printer.CurrentX = 40
Printer.CurrentY = 10
Printer.Print "测试"
Printer.EndDoc
End Sub
'事实上执行了上述代码后，打印机只走纸确不能打印出“测试”两字。。
Printer.ScaleMode = vbMillimeters '厘米
Printer.Width = 190
Printer.Height = 100
Printer.CurrentX = 40
Printer.CurrentY = 10
Printer.Print "测试"
Printer.EndDoc
End Sub
'事实上执行了上述代码后，打印机只走纸确不能打印出“测试”两字。。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
junwhj 2003-05-16
With Printer
.ScaleMode = vbMillimeters
.Width = 19 * 567 'CM->TWIPS,ScaleMode属性对Width和Height属性无影响，它影响ScaleWidth/ScaleHeight属性
.Height = 10 * 567 'CM->TWIPS
.CurrentX = 40
.CurrentY = 10
.Print "测试"
.EndDoc
End With
.ScaleMode = vbMillimeters
.Width = 19 * 567 'CM->TWIPS,ScaleMode属性对Width和Height属性无影响，它影响ScaleWidth/ScaleHeight属性
.Height = 10 * 567 'CM->TWIPS
.CurrentX = 40
.CurrentY = 10
.Print "测试"
.EndDoc
End With
- 打赏
- 举报
shuchang0626 2003-05-15
应该是已经打印了
只不过打在了纸外面
只不过打在了纸外面
- 打赏
- 举报
半点闲 2003-05-15
可是在我的打印机上无法打印出来。。
但是如何把这句改为Printer.CurrentX = 20，是可以打印出来“测试”两字，但是好像就是“试”这个字右边好像没有打全。
我用的是OKI5530票据打印出，在打印机纸张上设置的是USF格式。
在我上述得代码中其实我是想设置我的纸张宽＝190毫米，高＝100毫米。。
但是如何把这句改为Printer.CurrentX = 20，是可以打印出来“测试”两字，但是好像就是“试”这个字右边好像没有打全。
我用的是OKI5530票据打印出，在打印机纸张上设置的是USF格式。
在我上述得代码中其实我是想设置我的纸张宽＝190毫米，高＝100毫米。。
- 打赏
- 举报
huaik 2003-05-15
语句没有错啊
我试了一下，可以在纸上打出来
我试了一下，可以在纸上打出来
- 打赏
- 举报
半点闲 2003-05-15
帮我指出上述语句错在什么地方吗？
- 打赏
- 举报
xayzmb 2003-05-15
嗯
打印机肯定是打印了
只是没有打在你能看到的地方
呵呵
...........
打印机肯定是打印了
只是没有打在你能看到的地方
呵呵
...........
- 打赏
- 举报
半点闲 2003-05-15
更正声明：
Printer.ScaleMode = vbMillimeters '厘米 －－－－打错了实际上是“毫米”
Printer.ScaleMode = vbMillimeters '厘米 －－－－打错了实际上是“毫米”
- 打赏
- 举报
半点闲 2003-05-15
上述的代码是可以打印，但对纸张确无法精确控制。。最明显的表现就是，当你的程序己经打印完了你所打印的信息后。。还一直走纸（这里的纸张大小，是系统打印机里纸张属性里设置）。。。
因为我的打印机有不同的软件在用，而它们要求的纸张都不一样。。所以我无法直接在“打印机里设置纸张类型”。。如果设置了会影响别的软件在执行打印程序执行。
我的目的是想用代码的方式设置“自定义的纸张”
因为我的打印机有不同的软件在用，而它们要求的纸张都不一样。。所以我无法直接在“打印机里设置纸张类型”。。如果设置了会影响别的软件在执行打印程序执行。
我的目的是想用代码的方式设置“自定义的纸张”
- 打赏
- 举报
bluelang 2003-05-15
Private Sub Command1_Click()
Printer.ScaleMode = vbMillimeters '厘米
' Printer.Width = 190 去掉这两行就没有问题了。
'Printer.Height = 100
Printer.CurrentX = 40
Printer.CurrentY = 10
Printer.Print "测试"
Printer.EndDoc
End Sub
Printer.ScaleMode = vbMillimeters '厘米
' Printer.Width = 190 去掉这两行就没有问题了。
'Printer.Height = 100
Printer.CurrentX = 40
Printer.CurrentY = 10
Printer.Print "测试"
Printer.EndDoc
End Sub
- 打赏
- 举报
huangjianyou 2003-05-15
控制面板中打印机设置好纸张。
- 打赏
- 举报
huaik 2003-05-15
在代码中设置纸张的大小是有用的，你设置的字体大小是多少？
- 打赏
- 举报
半点闲 2003-05-15
我的凝问是。。我明明己经把纸张的宽与高设置好了。
而且在进行打印时的定位，如果按照我定义的纸的宽与高可是不会打印到纸的外面。。
我现在就是这点不太明白，不知道造成这种原因出在什么地方？
代码好像是没有错的，难道在代码中设置的纸张大小是没有用的？
而且在进行打印时的定位，如果按照我定义的纸的宽与高可是不会打印到纸的外面。。
我现在就是这点不太明白，不知道造成这种原因出在什么地方？
代码好像是没有错的，难道在代码中设置的纸张大小是没有用的？
- 打赏
- 举报
实战 | 哪个瞬间让你突然觉得CV技术真有用？ 同时我在网上看了一下价格，自动进纸扫描仪最便宜的新品是国产的 清华紫光-F20S，只要1150元包邮，这个价格就算我自己掏腰包也可以承受，而且50张的纸匣已经基本足够一般教学的使用了。 普通打印机就能打印的黑白...
代码大全2 代码大全(二) 第1部分 打好基础 本部分内容 第1章 欢迎进入软件构建的世界 第2章 用隐喻来更充分地理解软件开发 第3章 三思而后行：前期准备 第4章 关键的“构建”决策 一、欢迎进入软件...
JAVA针式打印机打印整理 在项目中，经常有可能需要通过针式打印机打印...1、在编写代码之前，最好测试一下在你本机是否可以连接到打印机，正常打印，如果你本机都无法打印，也就不要指望程序可以打印了。 2、本机可以连接到打印机并可以
如何学好游戏编程？ 中国的游戏为什么这么落后，你要联想下，当年中国为什么会被八国联军所侵略。腐朽的 思想是根本原因，从而导致了腐朽的社会制度。游戏行业也是这样，看待游戏的中国人， 始终带着眼镜，用腐朽思想看待游戏，所以...
条码打印三 - Zebra最全ZPL语言指令解析 可缩放字体（也可以认为是平滑矢量字体）能够以点为单位来对横向、纵向进行扩展。点阵字体由点阵象素组成，通常高度高度大于宽度。内置的的缩放字体(A0=CG Triumvirate Bold Condensed) 默认为不旋转， 15 点高， 12...
Windows 系统错误代码 4-系统无法打开文件。 5-拒绝访问。 6-句柄无效。 7-存储控制块被损坏。 8-存储空间不足，无法处理此命令。 9-存储控制块地址无效。 10-环境不正确。 11-试图加载格式不正确的程序。 12-访问码无效。 13-...
GIF Movie Gear逆向实战+注册代码+补丁 GIF Movie Gear逆向实战+注册代码+补丁 准备 我是在windows 8.1 x64上进行的操作。有不足之处，还望大虾指出。 获取资源 网站下载：http://www.gamani.com/gmgdown.htm，国内站点是汉化...
打印样例 MDI下一个子窗体上控件很多，所以在1280*1024分辨率下做的，然后在1024*768下，控件不能全部显示出来，也不能全部打印出来。：（考虑过用滚动条，但用printform也只能打印出当前屏幕显示的东西怎么解决啊？不会让我...
android工具代码块儿2 Activity的切换 1. //从A到B，没有数据传递 Intent intent = newIntent(); Intent.setClass(A.this ,B.class); startActivity(intent); A.this.finish();...//A中代码：”passData” 是自定义的识别标
第7章 跨程序共享数据，探究 可能你会有些疑惑，为什么要将我们程序中的数据共享给其他程序呢？当然，这个要视 情况而定的，比如说账号和密码这样的隐私数据显然是不能共享给其他程序的，不过一些可 以让其他程序进行二次开发的基础性数据，...
第2章 先从看得到的入手，探究活动 FirstActivity内部还什么代码都没有，所以首先你要做的就是在FirstActivity中重写onCreate() 方法，代码如下所示： public class FirstActivity extends Activity { @Override ...
面试｜2021 菜鸟金三银四铜五 Android 被锤历程出炉... 简单聊下你为什么会选择离职以及为什么选择我们公司的原因。 面试感受: 对于回答面试官的答复，条理性还是有些欠缺，下次脑子里先过一遍，有个轮廓在慢条斯理答复。面试官感觉蛮友好的。 2021-3-2 乐友集团（电商）...
linux就是这个范儿之融于心而表于行(4) 管道符”，而这种程序直接的协调技术也被称之为 “ 管道 ” ，更为专业的名称叫 “ 匿名管道 ” 。 管道是 Linux 系统提供的多任务协调机制的一种，应用十分广泛。管道可分为匿名和命名两种，但是不管怎样它们...
融于心而表于行 之 程序的执行问题 管道符”，而这种程序直接的协调技术也被称之为 “ 管道 ” ，更为专业的名称叫 “ 匿名管道 ” 。 管道是 Linux 系统提供的多任务协调机制的一种，应用十分广泛。管道可分为匿名和命名两种，但是不管怎样它们都拥有...
