Private Sub Command7_Click()
Dim arbname, prdname, sp, prnp As String
Dim grtot, itmtot, itmqty, itmprc As Double
Dim i As Integer
Set rs = Me.Recordset.Clone
prnp = "lpt1"
Open prnp For Output As 1
'     Print #1, "AlSwaida Bakery"
'     Print #1, "Cash Memo"
'     Print #1, Chr(27) + "!0"
     Print #1, "Item                  Qty  Price  Amount"

If rs.EOF = False Then
 While Not rs.EOF
'arbname = ConvertCode(rs!ProductName, "WINDOWS", "IBM")
  prdname = Trim(rs!ProductName)
    If Len(prdname) < 20 Then
    For i = 1 To 20 - Len(prdname)
    sp = sp & " "
    Next i
    prdname = prdname & sp
    Else
    prdname = Left(prdname, 20)
    End If
    
    itmtot = Trim(rs!SQty) * Trim(rs!SalesPrice)
    itmqty = Format(Trim(rs!SQty), "@@@@")
    itmprc = Format(Trim(rs!SalesPrice), "@@@@@@")
    Print #1, prdname & " " & itmqty & "  " & itmprc & "   " & itmtot
    
   grtot = grtot + rs!TValue
   sp = ""
   rs.MoveNext
 Wend
    Print #1, "Grand Total :                  " & Format(grtot, "000000.00")
    Print #1, Chr(10) & Chr(10)
    Print #1, "Thank You Come Again"
    Print #1, Chr(10) & Chr(10) & Chr(10)
    
    Print #1, Chr(27) + "i"
'     Print #1, Chr(27) + "!5"
     Print #1, "AlSwaida Bakery"
     Print #1, "Cash Memo"
    Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(50) + Chr(250)
    Close #1
End If
   End Sub