Announcement

**Hans Rietveld** · 12 Apr 2009, 03:52 PM

Marc.

Thank you for this contribution of the updated and extended program.
You have made it to a full product, which can be a skilful tool for a lot of people.
The sourcecode may be an incentive to some readers to begin writing a program.

Marc thanks.

**Hans Rietveld** · 21 Apr 2009, 03:14 AM

Hallo Marc.

There is a little error in the printfunction.
Changing the printer doesn't work.

Here is an updated version of the printerfunction.

Please add this GLOBAL at the begin of the program.

GLOBAL PrintSel AS STRING ' Name of selected printer

Code:

    ' retrieve default printer name
            XPRINT ATTACH DEFAULT ' capture default printer
            PrintSel = XPRINT$
            CONTROL SET TEXT CB.HNDL, %Printer, PrintSel
            XPRINT CLOSE          ' release printer

Code:

CALLBACK FUNCTION OnEvent_Print( ) AS LONG
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' contributed by Hans Rietveld
' page range selection add by Marc Giao
'
LOCAL Result    AS LONG   ' function return result
LOCAL NF        AS LONG   ' number of range fields
LOCAL SP        AS LONG   ' start page number
LOCAL EP        AS LONG   ' end page number
LOCAL X         AS LONG   ' index
LOCAL PR        AS STRING ' range of pages to print
LOCAL Txt       AS STRING

IF CB.MSG = %WM_COMMAND AND CB.CTLMSG = %BN_CLICKED THEN
    SELECT CASE CB.CTL
        CASE %PrintAll
            CONTROL SET TEXT CB.HNDL, %PageRange, "ALL"
        CASE %PrintOdd
            CONTROL SET TEXT CB.HNDL, %PageRange, "ODD"
        CASE %PrintEven
            CONTROL SET TEXT CB.HNDL, %PageRange, "EVEN"
        CASE %PrintSetup
        ' original code by Hans Rietveld, modified by Marc Giao
            XPRINT ATTACH CHOOSE

            IF TRIM$( XPRINT$ ) = "" THEN
                XPRINT ATTACH DEFAULT
            END IF

            PrintSel = XPRINT$
            CONTROL SET TEXT CB.HNDL, %Printer, PrintSel
            XPRINT CLOSE

        CASE %PrintPDF
            CONTROL GET TEXT CB.HNDL, %PageRange TO PR
                SELECT CASE PR
                    CASE ""
                        EXIT FUNCTION

                    CASE "ALL"
                        SP = 1
                        EP = QuickPDFPageCount( LibInstance )
                        XPRINT ATTACH PrintSel
                        CONTROL SET TEXT CB.HNDL, %PageRange, "Printing:" + STR$(EP) + " Pages"
                        Result = QuickPDFPrintDocument( LibInstance, PrintSel & $NUL, SP, EP, 0 )
                        XPRINT CLOSE

                    CASE "ODD"
                        SP = 1
                        EP = QuickPDFPageCount( LibInstance )
                        XPRINT ATTACH PrintSel
                        FOR X = 1 TO EP STEP 2
                            CONTROL SET TEXT CB.HNDL, %PageRange, "Printing Page:" + STR$( X )
                            Result = QuickPDFPrintDocument( LibInstance, PrintSel & $NUL, X, X, 0 )
                        NEXT
                        XPRINT CLOSE

                    CASE "EVEN"
                        SP = 2
                        EP = QuickPDFPageCount( LibInstance )
                        XPRINT ATTACH PrintSel
                        FOR X = 2 TO EP STEP 2
                            CONTROL SET TEXT CB.HNDL, %PageRange, "Printing Page:" + STR$( X )
                            Result = QuickPDFPrintDocument( LibInstance, PrintSel & $NUL, X, X, 0 )
                        NEXT
                        XPRINT CLOSE

                    CASE ELSE
                        PR = RETAIN$( PR, ANY "-,1234567890" )
                        IF PR = "" THEN EXIT FUNCTION
                        NF = PARSECOUNT( PR, "," )
                        DIM PP( 1 TO NF ) AS STRING ' array of pages to print
                        PARSE PR, PP( )
                        XPRINT ATTACH PrintSel
                        FOR X = 1 TO NF
                            IF PP( X ) = "" THEN ITERATE
                            IF PARSECOUNT( PP( X ), "-" ) THEN
                                SP = VAL( PARSE$( PP( X ), "-", 1 ) )
                                EP = VAL( PARSE$( PP( X ), "-", 2 ) )
                                CONTROL SET TEXT CB.HNDL, %PageRange, "Printing:" + STR$(SP) + " to" + STR$(EP)
                            ELSE
                                SP = VAL( PP( X ) ) : EP = SP
                                CONTROL SET TEXT CB.HNDL, %PageRange, "Printing Page: " + STR$(SP)
                            END IF
                            Result = QuickPDFPrintDocument( LibInstance, PrintSel & $NUL, SP, EP, 0 )

                        NEXT
                        XPRINT CLOSE

        END SELECT
    END SELECT

FUNCTION = 1

END IF

END FUNCTION ' OnEvent_Print

I'am pleased with your prgram, I use it daily.

**Marc Giao** · 26 Apr 2009, 08:28 PM

Hi Hans,

Thanks for reporting, that was silly of me

I fixed it fifferently to avoid another global... don't want to cross paths with the "Global Police"

Anyway, I've posted an update with some more goodies. Hope you find it useful.

**Hans Rietveld** · 27 Apr 2009, 04:38 AM

Hi Marc.

It is even better now.
I like the new startup screen.

I fixed it fifferently to avoid another global... don't want to cross paths with the "Global Police"

You're right, it's better so.

Could you change:
"Even", 950, 225, 43, 15,, CALL OnEvent_Print( )
I'am missing the last part of the letter "n".

May be you could add an option to save the current page of the document in a different file type.
Looks handy to me.

You could use for this function:

Code:

int QuickPDFRenderPageToFile(int InstanceID, int DPI, int Page,
int Options, char * FileName) 

int QuickPDFSetJPEGQuality(int InstanceID, int Quality)

**Marc Giao** · 2 May 2009, 09:35 PM

Just a minor update, nothing new

'.May 3, 2009 - Version 0.40 by Marc Giao
'....Compiled wirh new trial license
'....Open file dialog now remembers previous path
'....Tweaks to page display and position
'....Tweaks to display colour
'....Tweaks to text positions

I hope you find this project useful, educational or entertaining. For discussion on this project please use the following thread:

404 - File or directory not found.

http://www.powerbasic.com/support/pb...722#post313722

Code and Comments are welcome.

Attached Files

**jim schultz** · 6 Sep 2009, 10:33 AM

Vers 12 Download

Can't seem to find this DL- only current vers 15 which doesn't work with your exe.

Thx,

Jim

**Marc Giao** · 6 Sep 2009, 11:27 AM

Hi Jim,

Ver 7.12 is history but you may still find a release here: http://www.quickpdf.org/forum/librar...s_forum18.html

Better to download 7.15 and recompile the project using a new 30 day trial key. The trial key used in the above projects has since expired... When summer is over

I'll try and recompile the project with a permanent key.

If you want to discuss further please do so at: http://www.powerbasic.com/support/pb...722#post313722

Announcement

Forum Guidelines

DDT-PB9 PDF View 0.10, a PDF viewer

PBWin DDT-PB9 PDF View 0.10, a PDF viewer

Comment

Comment

Comment

Comment

Comment

Comment

Comment