如何才能使报表不间断的打印，就像电信局打印电话清单一样！

cyber-bobo

因要用连续纸打印，固有此一问，但自定义纸张也不能设为无限长。

tz-chf

往打印机直接发打印的内容，象超市的购物小票，VB的东西。

cyber-bobo

不明白，能说清楚一点吗，具体步骤或例子有吗？

cyber-bobo

各位大佬帮帮忙吧，急用啊！

tz-chf

    '    Open "lpt1" For Output As #1
        
    '    Print #1, "------欢迎惠顾绿洲大药房------"
    '    Print #1, "    机号os2   日期:" & Now
    '    Print #1, "    单据号:" & IDID & "   收款员:" & Me.收款员
    '    Print #1, "-------------------------------"
    '    Print #1, "药品名称         数量   售价"

    '        rst.MoveFirst
            
    '        Do Until rst.EOF
    '           n = Len(Left(rst("商品名称"), 7)) * 2
    '           m = Len(CStr(rst("数量")))
    '           Print #1, Left(rst("商品名称"), 7); Spc(20 - m - n); CStr(rst("数量")); Spc(5); CStr(rst("交易价"))
    '          rst.MoveNext
    '        Loop

    '    Print #1, "-------------------------------"
    '    Print #1, "收款:" & Me.收款 & "   找零:" & Me.找零 & "  合计:" & Me.合计 & "元"
    '    Print #1, "---欢迎下次光临绿洲大药房---"
    '    Print #1, "        咨询电话：6211530"
    '    Print #1,
    '    Print #1,
    '    Print #1,
    '    Print #1,
    '    Print #1, Chr(27) + "p" + Chr(0) + Chr(60) + Chr(255)
      
    '    Close #1

cyber-bobo

我不是真的用pos机，而是用针式打印机打印连续纸（两边有很多圆孔那种），只不过是想使报表不分页连续打印。

tz-chf

一样

cyber-bobo

在何处引用呢？

tz-chf

用不着引用，把rst的部分去掉。你就不能自己试试。

XWQ2000

111