当前位置:编程学习 > VB >>

请问给位朋友如何用hp1600 打印特殊纸张!(210mm*680mm)

打印机是HP 1600 在打印机的正面(也就放纸张盒)有个A4的进纸口,放A4的纸张也能打印。但我现在要打印一种自制纸张(210mm*680mm 宽和A4的一样,长是三张A4长)每次打印了三分之一就不行了,卡机了。请问大侠怎样才能成功打印!!谢谢!!!
补充:对楼下的朋友的解答,我看的稀里糊涂的,能不能用简单点,对于设置的问题,之前我都动手设置过了,还是不行,比如说:hp1600自定义纸张来说最大长的限度是36.5MM,可是我自定义的纸张是68.0MM。这样打印还是会卡纸的。
答案:使用 Printer 打印对象自定义纸张:

Private Sub Command1_Click()
Dim p_Width As Long
Dim p_Height As Long
    
    Printer.ScaleMode = vbCentimeters '设置度量单位(厘米)
    p_Width = 21 '设置纸张宽度(厘米)
    p_Height = 68 '设置纸张高度(厘米)
    Printer.PaperSize = vbPRPSUser '使用自定义纸张
    Printer.Width = Int(p_Width * 566.94) '设置纸张宽度(转换为“缇”单位)
    Printer.Height = Int(p_Height * 566.94) '设置纸张高度(转换为“缇”单位)

    Printer.Print "你要打印的内容...."
    Printer.Print "......"

    .....

    Printer.EndDoc '打印结束,将打印数据释放到打印设备。

End Sub

注:
# 前提下要打印机支持自定义纸张功能,因为有些打印机不支持自定义纸张的。

# 如果你不是用Printer对象,就要手工设置打印机属性为“自定纸张”,然后设置长、宽度。

=========================================================

这是用打印对象控制打印机的,最简单的了,前面已说过,前提下要打印机支持自定义纸张功能,否则就没办法了。

上一个:VB中名称和标题有什么区别啊,谢谢啦
下一个:VB提取多个TXT文件中每一行数据,存入新文件

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,