Try this function
Public Function removespaces(f As String) As String
Dim i As Integer
removespaces = ""
i = 1
While i < Len(f)
removespaces = removespaces & IIf(Mid(f, i, 1) = " ", "", Mid(f, i, 1))
i = i + 1
Wend
End Function
I need to distribute printed reports to network printers overnight, I intend to maintain these printers names for reports in an access table BUT How do I print the report on one of these printers in code ?
I need to distribute printed reports to network printers overnight, I intend to maintain these printers names for reports in an access table BUT How do I print the report on one of these printers in code ?
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.