Print sales transaction receipt error

[GEORGE PERRY]

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