请问EPSON LQ-680K 670K系列打印机如何控制切纸

来源：百度知道 编辑：UC知道 时间：2024/05/17 02:41:57
尝试并试着更改过如下代码：

Open "lpt1:" For Output As #1
Print #1, Chr$(&H1B);Chr$(&H64);Chr$(&H0);
Close #1

效果是打印机没有任何反应（打印窗口闪了一下），请问要如何实现？能解决的定加分，谢谢。

代码是我转的~~

Public Sub PrintStr1(ByVal vGrid As Object, Optional ByVal vStarPage As Integer = 1, Optional ByVal vEndPage As Integer = 0)
On Error Resume Next
newPageIndex = 1

Dim pR As Long, i As Long, pWidth As Long
Dim LVl As Long, LVt As Long, LVr As Long, LVb As Long, iLVW As Long, iLVWs() As Long, PSize As Double
Dim iTempText As String, iFont As New StdFont, vPage As Integer
Dim iPageAmount As Variant, iAllAmount As Variant, iAT As Variant
Dim iPA() As Boolean, iAA() As Boolean, iPASum() As Currency, iAASum() As Currency, iPAFormat() As String, iAAFormat() As String
ReDim iPA(vGrid.Cols) As Boolean
ReDim iAA(vGrid.Cols) As Boolean
ReDim iPASum(vGrid.Cols) As Currency
ReDim iAASum(vGrid.Cols) As Currency
ReDim iLVWs(vGrid.Cols) As Long
For i = 1 To vGrid.Cols - 1
If vGrid.ColWidth(i - 1) <> 0 Then
iLVW = iLVW + vGrid.ColWidth(i - 1)
iLVWs(i) = vGrid.ColWidth(i - 1