打印小票时最后一行输出空行总是不成功 :(

Question

打印小票，最后几行语句如下：
........................H = H + rh
'Printer.CurrentX = LeftM
Printer.CurrentY = HPrinter.Print "感谢惠顾，欢迎再次光临"H = H + rh
'Printer.CurrentX = LeftM
Printer.CurrentY = HPrinter.Print " "Printer.EndDoc我的意思是想在"感谢惠顾，欢迎再次光临"后再打印一行空行，但总是没有打印空行，每次打印完"感谢惠顾，欢迎再次光临"就停止了。请各位看看是什么原因好吗？ 谢谢了。

Answer 1

测试这个
Private Sub Command1_Click()
    Printer.ScaleMode = vbMillimeters
    
    Printer.Print "haha"
    Printer.Print "haha"
    Printer.Print "  "
    Printer.Print "lala"
    Printer.EndDoc
End Sub
*********************************
Printer.Print "  "
这时候就能看到效果了

Answer 2

我的意思是在最后一行输出空白行不行，比如你这个例子，我想这样：
  ......  Printer.Print "lala"
  Printer.Print " "
  Printer.EndDoc
End Sub结果是输出了“lala”后就停止了，没有输出最后的一个空白行。

Answer 3

Printer.Print "感谢惠顾，欢迎再次光临" & vbcrlf

Answer 4

Printer.Print chr(13)
试试看！~

Answer 5

vbcrlf
和
chr(13)
都是换行
你打印语句后+上就行了！

Answer 6

不清楚lz怎么样算达到效果，也不清楚目的是什么print 1
print
print 2
与
print 1
print chr(10)       '换行
print 2
与
print 1
print chr(13)       '回车
print 2这3个是否能达到lz目的？

Answer 7

Printer.Print 就是打一空行
自己设置打印机多走点纸,不能在最后打印一个空行.

Answer 8

我觉得还是Printer.CurrentY设置的有问题

Answer 9

应该和打印机对空格的处理有关，试试下面各种方法
Printer.Print "　" '<-中文空格'
Printer.EndDoc
Printer.Print "                                              x" '<在打印区域之外输出一个可见字符，看看是否走纸。'
Printer.EndDoc
Printer.Print
Printer.EndDoc
Printer.Print vbCrLf
Printer.EndDoc

Answer 10

Printer.Print "."
Printer.EndDoc
多一个.应该无所谓吧

Answer 11

这个问帖看了几次,仍然无法明白LZ的想法和要求.使用Printer对象的代码,执行Printer.EndDoc句后就执行打印,并将1张纸送玩,而不是最后有个Printer.Print " ",而多走纸的.

Answer 12

他们都没做过项目，楼主其实就是要控制走纸，而没有实际的打印，打印机是不会走纸的。
所以应该在页末用Pset 定位打点，再执行Enddoc。