7,762
社区成员
发帖
与我相关
我的任务
分享一个直接打印的难题，请教大家。
电脑的lpt1口上连接了一台惠普激光打印机，现在不通过打印驱动程序，直接对lpt1口进行操作，要求在一张A4白纸离左顶端5厘米的地方打印一个5*5厘米的实心黑快。
分析这个问题，无非是几个问题：
1，直接输出打印命令到并口
2，先控制打印机走纸5厘米
3，然后定位在距离左边5厘米的地方开始打印
4，这个黑块其实是由点组成的，那点的大小又是多少呢？与打印机分辨率有关？
我只可以想出这么多了，请各位大虾赐教。
分析这个问题，无非是几个问题：
1，直接输出打印命令到并口
2，先控制打印机走纸5厘米
3，然后定位在距离左边5厘米的地方开始打印
4，这个黑块其实是由点组成的，那点的大小又是多少呢？与打印机分辨率有关？
我只可以想出这么多了，请各位大虾赐教。
...全文
请发表友善的回复…
发表回复
chaoren119119 2003-10-11
- 打赏
- 举报
楼主借地方用一下啊，谢谢，小弟很急啊
我在建立根节点的时候用的是这样的代码
Private Sub Form_Load()
Dim NodX As Node
Do While Data1.Recordset.EOF
Set NodX = TreeView1.Nodes.Add(, , Chr(Data1.Recordset.Fields("编号1").Value), Data1.Recordset.Fields("公司").Value)
NodX.Tag = Data1.Recordset.Fields("编号1")
Data1.Recordset.MoveNext
Loop
End Sub
系统老是报错“错误91，对象变量或with块变量未设置”
我明明把data控件设定好了，数据库也绑定正确，真是奇怪啊！
我在建立根节点的时候用的是这样的代码
Private Sub Form_Load()
Dim NodX As Node
Do While Data1.Recordset.EOF
Set NodX = TreeView1.Nodes.Add(, , Chr(Data1.Recordset.Fields("编号1").Value), Data1.Recordset.Fields("公司").Value)
NodX.Tag = Data1.Recordset.Fields("编号1")
Data1.Recordset.MoveNext
Loop
End Sub
系统老是报错“错误91，对象变量或with块变量未设置”
我明明把data控件设定好了，数据库也绑定正确，真是奇怪啊！
zjcxc 2003-10-11
- 打赏
- 举报
看看,用现成打印控件不好吗?
northwolves 2003-10-11
- 打赏
- 举报
设置FONTSIZE，PRINT Chr(&HA1F6)
Bonnie_H 2003-10-10
- 打赏
- 举报
忘了告诉大家前提是： 只能用纯软件写出来，不能用到其他资源。所以要用夏雪的办法的话就要先用程序画一张图片，但是输出的时候始终都要转化成点阵输出啊。
是不是可以打印这个字符“■”------好办法！
是不是可以打印这个字符“■”------好办法！
MSSQL 2003-10-10
- 打赏
- 举报
我也没有试过。
Open "PRN" For Output As #1
打开后。
将一个只有黑块的图片输出到PRN
Open "PRN" For Output As #1
打开后。
将一个只有黑块的图片输出到PRN
rainstormmaster 2003-10-10
- 打赏
- 举报
4.
是不是可以打印这个字符“■”
是不是可以打印这个字符“■”
rainstormmaster 2003-10-10
- 打赏
- 举报
1.
Open "PRN" For Output As #1
Open "PRN" For Output As #1
