Vba 如何在财务打印机上打印Z报告?
我不熟悉财政打印机。我已经设法使用Java和VBA将事务发送到财政打印机(FP3530),但现在我需要打印Z报告来结束。有人这样做过吗,请帮忙 我尝试了使用API提供的日报方法,但没有成功。 如果我能理解这些日志是从哪里读取的,我将不胜感激,因为有一种方法需要它作为参数,如下面的VBA代码Vba 如何在财务打印机上打印Z报告?,vba,printing,Vba,Printing,我不熟悉财政打印机。我已经设法使用Java和VBA将事务发送到财政打印机(FP3530),但现在我需要打印Z报告来结束。有人这样做过吗,请帮忙 我尝试了使用API提供的日报方法,但没有成功。 如果我能理解这些日志是从哪里读取的,我将不胜感激,因为有一种方法需要它作为参数,如下面的VBA代码 GET_JOURNAL(ReadAndErase As Boolean, FileName As String, ByRef CRC32 As String, ByRef SHA1 As St
GET_JOURNAL(ReadAndErase As Boolean, FileName As String, ByRef CRC32 As String, ByRef SHA1 As String) As Boolean
尝试按如下方式使用它:
Public Sub PrintZ_Report()
On Error GoTo errorsave
FP = New FP3530.CSFP3530
FP.Init(1, 115200, 0, 0, 8)
Dim fname As String
Dim nClosure As Long
Dim dbFM_Total As Double
Dim dbTaxA As Double
Dim dbTaxB As Double
Dim dbTaxC As Double
Dim dbTaxD As Double
Dim dbTaxE As Double
varBool = FP.GET_JOURNAL(True, fname, 1, 1)'Cannot figure out fname
If Not varBool Then
MsgBox("Error getting journal")
End If
varBool = FP.DAILY_REPORT(0, True, nClosure, dbFM_Total, dbTaxA, dbTaxB, dbTaxC, dbTaxD, dbTaxE)
If Not varBool Then
MsgBox("Error creating DAILY_REPORT")
'Error handler goes here
End If
End
Exit Sub
errorsave:
'MsgBox Err.Description
Resume Next
End Sub
这与Java有什么关系?对不起,忘了放Java等价物。但主要的是,我的奋斗并不是为了得到这篇日志,我把java放在这里,这个java是如何相关的?对不起,忘了放java等价物了。但是,主要的是,我的奋斗并不是为了得到把java放在这里的日志