Click here to download

Sample that shows how to print multiple pages

Some usefull One Liner VBCodes

Getting file name form given path
Dim PathName As String
Dim FileName As String
PathName = "d:\football\wordcup\final.txt"
FileName = Mid$(PathName, InStrRev(PathName, "\", , vbTextCompare) + 1, Len(PathName))

Validating File or Path Exists or not
Dim DirectoryExist as Boolean
DirectoryExist = Dir(Path, vbDirectory) <> ""

To ProperCase the string
sPropercase= StrConv("i am the thunder main", vbProperCase)

Back