New topic for comments regarding the PDF View topic in the source code forum:
http://www.powerbasic.com/support/pb...765#post311765
http://www.powerbasic.com/support/pb...765#post311765
CONTROL ADD BUTTON, MainHndl&, %Print, "Print", 878, 230, 120, 30, 0, 0, CALL OnEvent_Print( ) ' Add a new button to the main dialog CALLBACK FUNCTION OnEvent_Print() AS LONG LOCAL PageNum AS LONG IF CB.MSG = %WM_COMMAND AND CB.CTL = %Print AND CB.CTLMSG = %BN_CLICKED THEN PageNum& = QuickPDFSelectedPage( LibInstance& ) IF PageNum& > 0 THEN XPRINT ATTACH DEFAULT ' get the default printer QuickPDFPrintDocument(LibInstance&, XPRINT$ & $NUL, PageNum&, PageNum& + 1, 0) ' Print one page on the default printer XPRINT CLOSE FUNCTION = 1 END IF END IF END FUNCTION ' OnEvent_Print
[COLOR="Silver"]LibInstance& = QuickPDFCreateLibrary( )[/COLOR] Result& = QuickPDFUnlockKey( LibInstance&, "[COLOR="Red"]Insert your licensekey here[/COLOR]" ) [COLOR="silver"]AppPath$ = EXE.PATH$[/COLOR]
[COLOR="Gray"]Caption$ += ", Beta 2 (" + QuickPDFLicenseInfo( LibInstance& ) + ")"[/COLOR] [COLOR="Green"]IF QuickPDFUnlockEd( LibInstance&) = 0 THEN MSGBOX "Wrong Licensekey !"[/COLOR] [COLOR="gray"]DIALOG SET TEXT CB.HNDL, Caption$[/COLOR]
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Comment