Vba 如何在财务打印机上打印Z报告?

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

我不熟悉财政打印机。我已经设法使用Java和VBA将事务发送到财政打印机(FP3530),但现在我需要打印Z报告来结束。有人这样做过吗,请帮忙

我尝试了使用API提供的日报方法,但没有成功。 如果我能理解这些日志是从哪里读取的,我将不胜感激,因为有一种方法需要它作为参数,如下面的VBA代码

    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放在这里的日志