Private Sub Command1_Click()
Dim Ret As String, Ret1 As String
Dim nr As Integer
'dlg1.ShowPrinter
MousePointer = vbHourglass
Open "\\CC3\Epson FX-1170" For Output As #nPrinterHandle
m.Do "OpenTaxZS1^gEXP", Ret, nr, Er
Varfull = Split(Ret, "|")
Rec = UBound(Varfull)
For cnt =  0  To Rec
n = n +  1 
Ret1 = Varfull(cnt)
Print #nPrinterHandle, Ret1 'strExpression
 Next cnt
Close #nPrinterHandle

End Sub
  

Private Sub Command1_Click()
Dim Ret As String, Ret1 As String
Dim nr As Integer
'dlg1.ShowPrinter
    
i =  0 
MousePointer = vbHourglass
'Open "\\CC3\Epson FX-1170" For Output As #nPrinterHandle
m.Do "OpenTaxZS1^gEXP", Ret, nr, Er
Varfull = Split(Ret, "|")
Rec = UBound(Varfull)
For cnt =  0  To Rec
n = n +  1 
Ret1 = Varfull(cnt)
Printer.Print Ret1
'Print #nPrinterHandle, Ret1 'strExpression
 Next cnt
'Close #nPrinterHandle
Printer.EndDoc
MousePointer = vbDefault