Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
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.
|VB6 Compile Compatibility Issue||4||128|
|Macro Excel - Multiple If conditions||2||92|
|MS SQL Update query with connected table data||3||78|
|Compare Two Columns on Two Different Sheets and Paste the Results into a 3rd Sheet||5||41|
Join the community of 500,000 technology professionals and ask your questions.