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
|ms access #TYPE! error on report when no data||4||68|
|Restricting text box entry from \/:?<>"|||9||77|
|How to set the row selection as it was prior leaving the datagrid in vb6||3||35|
|Prevent user closing word document opened with VB6||6||67|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!