vb6.0 控制针式打印机

[zhufenghappy]

vb6.0 实现控制针式打印机，主要是打印票据，票据一般有一定的框架，主要是准确的走纸把信息填充到票据上，必须是针式打印机。

[zhufenghappy]

最好给详细代码，分数不够可以继续加分。也可以打包发送到我邮箱：[e-mail]，在此先谢谢各位大侠。

[东方之珠]

1、这个应该不难。从数据库读取数据后，将指定数据按座标设计好打印位置；
2、将发票复印几张，准备浪费几张，反复地试，直到打印到指定位置为准；
3、正式打印发票。
工具可以用水晶报表。

[zdingyun]

http://zhidao.baidu.com/question/4168806.html有本人的代码.

[attly]

挺简单的，推荐使用activeReport

[zhufenghappy]

各位能说说思路或是给出代码好吗？

[zdingyun]

Option Explicit
    Private y As Integer
    Private x As Integer
    Private j As Integer
    Private txt As String
    Private fnt As Single
    Private dd As Variant
    Const bl = 567 '1厘米=576缇
'打印函数
Public Function prnt(x As Integer, y As Integer, fnt As Single, txt As String)
    Printer.CurrentX = x
    Printer.CurrentY = y
    Printer.FontSize = fnt
    Printer.Print txt
End Function

Private Sub Command1_Click()
    fnt = 20 '字号
    x = 8 * bl '横向离左8厘米
    y = 2.5 * bl '纵向离上2.5厘米
    txt = "各位能说说思路或是给出代码好吗？" '打印内容
    dd = prnt(x, y, fnt, txt) '调用打印函数
    Printer.EndDoc
End Sub

[dlschan]

不懂，帮顶

[jhone99]

Dim dblNormX As Double
Dim dblNormY As Double
    
Private Sub Command1_Click()
    Printer.ScaleMode = vbMillimeters
    dblNormX = 10
    dblNormY = 20
    
    s_PrintString "Title", 22, 10, 30, "黑体", True
    s_PrintString "aaaaaaaaaaaaaaaaaa", 16, 5, 50
    
    Printer.EndDoc

End Sub

Private Sub s_PrintString(ByVal strPrintString As String, ByVal intFontSize As Integer _
                      , ByVal dblCurrentX As Double, ByVal dblCurrentY As Double _
                      , Optional strFontName As String = "宋体", Optional blnFontBold As Boolean = False _
                      , Optional blnFontItalic As Boolean = False)
                      
    

    
    Printer.FontName = strFontName
    Printer.FontSize = intFontSize
    Printer.FontItalic = blnFontItalic
    Printer.FontBold = blnFontBold
    Printer.CurrentX = dblCurrentX + dblNormX
    Printer.CurrentY = dblCurrentY + dblNormY
    Printer.Print strPrintString

End Sub

[vbman2003]

套打一般用Printer对象，报表用报表工具
楼主的要求应该属于套打，建义用Printer....

[jhone99]

Dim dblNormX As Double
Dim dblNormY As Double
    
Private Sub Command1_Click()
    Printer.ScaleMode = vbMillimeters        '按mm计算打印位置
    
    '打印机品牌多，而且有的时候与系统也有关系，设置打印位置初始值，方便调节
    dblNormX = 10        '横向打印调节值
    dblNormY = 20        '竖向打印调节值
    
    s_PrintString "Title", 22, 10, 30, "黑体", True
    s_PrintString "aaaaaaaaaaaaaaaaaa", 16, 5, 50
    
    Printer.EndDoc    '实施打印

End Sub

Private Sub s_PrintString(ByVal strPrintString As String, ByVal intFontSize As Integer _
                      , ByVal dblCurrentX As Double, ByVal dblCurrentY As Double _
                      , Optional strFontName As String = "宋体", Optional blnFontBold As Boolean = False _
                      , Optional blnFontItalic As Boolean = False)
                      
    

    
    Printer.FontName = strFontName               '控制字体
    Printer.FontSize = intFontSize               '控制字体大小
    Printer.FontItalic = blnFontItalic           '控制是否斜体
    Printer.FontBold = blnFontBold               '控制是否粗体
    Printer.CurrentX = dblCurrentX + dblNormX    '控制横向打印位置
    Printer.CurrentY = dblCurrentY + dblNormY    '控制竖向打印位置
    Printer.Print strPrintString                 '打印字符串

End Sub

[ljluck7687]

可用平推式打印机打印票据。精确定位打印在于编程，对打印机没有太大的要求

[ttsffgg]

我也在控制打印票据 没感觉是否针式有什么不同

[zhufenghappy]

谢谢各位了，现在就结帖。