I have a form in Paradox with tick boxes to print any number of PDF documents. The user checks the box next to the document(s) required and then presses one button which opens Adobe and sends all the documents to print...brilliant. However, some of the documents are in landscape format but are being printed in portrait.
This the code I'm using:
Uses"Shell32.dll"
ShellExecuteA( hWnd CLONG,lpOperation CPTR,
lpFile CPTR,lpParams CPTR,
lpDirectory CPTR, nShowCmd CWORD) CLONG
enduses
method pushButton(var eventInfo Event)
var
strDir,
strPDF String
liRetVal longInt
endvar
strDir= "G:\\XXX\\PDF\\"
strPDF = "RAI 0101.pdf"
if not isFile(strDir+strPDF)then
msgStop("Can't Open File", "Reason: Can't find a file named"+
strDir+strPDF + "\"; please check the name.")
else
ShellExecuteA(0,"print",strPDF,"",strDir,0)
endif
endMethod
Can anyone tell me where and what code to put in to make it print landscape?
Any answers gratefully received...as usual.
Thanks
Annie
This the code I'm using:
Uses"Shell32.dll"
ShellExecuteA( hWnd CLONG,lpOperation CPTR,
lpFile CPTR,lpParams CPTR,
lpDirectory CPTR, nShowCmd CWORD) CLONG
enduses
method pushButton(var eventInfo Event)
var
strDir,
strPDF String
liRetVal longInt
endvar
strDir= "G:\\XXX\\PDF\\"
strPDF = "RAI 0101.pdf"
if not isFile(strDir+strPDF)then
msgStop("Can't Open File", "Reason: Can't find a file named"+
strDir+strPDF + "\"; please check the name.")
else
ShellExecuteA(0,"print",strPDF,"",strDir,0)
endif
endMethod
Can anyone tell me where and what code to put in to make it print landscape?
Any answers gratefully received...as usual.
Thanks
Annie