GEORGE PERRY
04-25-2021, 06:21 PM
FINDING DIFFICULTY IN CODING Thermal Receipt Printing (SALES RECEIPT WITH PRINT COMMAND) FOR CUSTOMER
issues:
1. Daily Sales Transaction not showing
2. Print Receipt command Button not responding
Please I need help on this
Here is the Code i have
Private Sub txt_Receipt_Change()
Show Daily_Sales_Receipt_Data
If Me.Daily_Sales_Receipt = Sale Then txt_Receipt = Sale
Application.ScreenUpdating = False
Dim dsr_sh As Worksheet
Set dsr_sh = ThisWorkbook.Sheets("DAILY_SALES_RECEIPT")
Dim spd_sh As Worksheet
Set spd_sh = ThisWorkbook.Sheets("Sale_Purchase_Display")
dsr_sh.AutoFilterMode = False
spd_sh.AutoFilterMode = False
dsr_sh.UsedRange.ClearContents
''''' Copy data from Sale_Purchase_Display worksheet to Daily_Sales_Receipt worksheet
dsr_sh.Range("D:D").NumberFormat = "D-MMM-YY"
dsr_sh.Range("C:C").NumberFormat = "0.00"
dsr_sh.Range("B:B").NumberFormat = "0"
dsr_sh.UsedRange.AutoFilter 4, ">=" & Me.txt_Start_Date.Value, xlAnd, "<=" & Me.txt_End_Date.Value
If Me.OptionButton5.Value = True Then ''' Filter Purchase
dsr_sh.UsedRange.AutoFilter 5, "Purchase"
End If
If Me.OptionButton4.Value = True Then ''' Filter Sale
dsr_sh.UsedRange.AutoFilter 4, "Sale"
End If
spd_sh.UsedRange.Copy
dsr_sh.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
spd_sh.AutoFilterMode = False
'''''''''' Display data in text box
Dim lr As Long
lr = Application.WorksheetFunction.CountA(dsr_sh.Range("A:A"))
If lr = 1 Then lr = 2
With Me.txt_Receipt
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "5,5,5,5"
.RowSource = "DAILY_SALES_RECEIPT!A2:H" & lr
End With
End Sub
issues:
1. Daily Sales Transaction not showing
2. Print Receipt command Button not responding
Please I need help on this
Here is the Code i have
Private Sub txt_Receipt_Change()
Show Daily_Sales_Receipt_Data
If Me.Daily_Sales_Receipt = Sale Then txt_Receipt = Sale
Application.ScreenUpdating = False
Dim dsr_sh As Worksheet
Set dsr_sh = ThisWorkbook.Sheets("DAILY_SALES_RECEIPT")
Dim spd_sh As Worksheet
Set spd_sh = ThisWorkbook.Sheets("Sale_Purchase_Display")
dsr_sh.AutoFilterMode = False
spd_sh.AutoFilterMode = False
dsr_sh.UsedRange.ClearContents
''''' Copy data from Sale_Purchase_Display worksheet to Daily_Sales_Receipt worksheet
dsr_sh.Range("D:D").NumberFormat = "D-MMM-YY"
dsr_sh.Range("C:C").NumberFormat = "0.00"
dsr_sh.Range("B:B").NumberFormat = "0"
dsr_sh.UsedRange.AutoFilter 4, ">=" & Me.txt_Start_Date.Value, xlAnd, "<=" & Me.txt_End_Date.Value
If Me.OptionButton5.Value = True Then ''' Filter Purchase
dsr_sh.UsedRange.AutoFilter 5, "Purchase"
End If
If Me.OptionButton4.Value = True Then ''' Filter Sale
dsr_sh.UsedRange.AutoFilter 4, "Sale"
End If
spd_sh.UsedRange.Copy
dsr_sh.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
spd_sh.AutoFilterMode = False
'''''''''' Display data in text box
Dim lr As Long
lr = Application.WorksheetFunction.CountA(dsr_sh.Range("A:A"))
If lr = 1 Then lr = 2
With Me.txt_Receipt
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "5,5,5,5"
.RowSource = "DAILY_SALES_RECEIPT!A2:H" & lr
End With
End Sub