RenderDocumentoFile Issue - ANY help appreciated!

In VB6 I am creating a JPG from a PDF that exists. My problem is that the end-result JPG has huge width and height ( like 44 inches) with 72 DPI, even though I set it to 300 DPI and set the page size to U.S. Photo size 8 x 10 inches. IOW, if you reduce the size of the outputted JPG to an 8x10 photo, it is fine. Its producing an large version of itself.... :-(

If I import the created JPG into a paint program such as Corel I can reset the dpi and dimensions and it works fine with no ooss of quality, but I cannot expect my end-users to do that.

Is what I want possible from within  QuickPDF?? ANY help much appreciated.

Here's the code that I am using:

    ClassName = "QuickPDFAX0815.PDFLibrary"
    LicenseKey = "xxxxxx" 'SET YOUR LICENSE KEY HERE...
    'FileName = "c:\hello-world.pdf"
   
    Dim QP As QuickPDFAX0815.PDFLibrary
    Dim result
   
    Set QP = CreateObject(ClassName)
    Call QP.UnlockKey(LicenseKey)
   
    QP.LoadFromFile xfilename, "xxx"
 
    QP.SetPageDimensions 576, 720    ' 8 x 10 inches
 
    JPGName$ = Left$(xfilename, (Len(xfilename) - 4)) & ".jpg"
   
    iNumPages = QP.PageCount()
    QP.RenderDocumentToFile 300, 0, iNumPages, 1, JPGName$
   
    QP.RemoveDocument (QP.SelectedDocument)

### end of code

Any Help much appreciated!

Ken

Ken,