Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Private Sub OfficialReceipt_LOCAL(trxno As String) Dim rs As DAO.Recordset Dim STR As String Dim i As Double Set rs = dbLocal.OpenRecordset("SELECT * FROM DETAILS WHERE DOCNO='" & saveDocNo & "' ORDER BY ROWNO ASC") Open OpenPort_ For Output As #1 i = Len(Trim(H.H1)) i = i \ 2 i = 20 - i If i = 20 Then Else STR = Space(i) & Trim(H.H1) Print #1, STR End If Print #1, "Customer : " & Trim(Setmeup(0)) If i = 20 Then Else STR = Space(i) & Trim(H.H6) 'Print #1, STR End If Print #1, String(40, "_") Print #1, "DESCRIPTION QTY PRICE AMOUNT" Print #1, String(40, "-") Set rs = Nothing For i = 0 To NoLineFeed Next Close #1 Set rs = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.