I need HELP printing corel files from VB6!

Hi All,

I need HELP! :cry:

I am trying to find some VB6 code to printout some files through Corel 12. I found code to do the printout, BUT..... I also ran into some other problems.

Here is the code I have:

Dim App As CorelDRAW.Application
Dim doc As CorelDRAW.Document

    Set App = New CorelDRAW.Application
    App.Visible = False
    App.Optimization = True
    
    Set doc = App.OpenDocument("K:\printmap.cdr")
        
    doc.PrintOut
    DoEvents
    
    doc.Close
    Set doc = Nothing
    
    App.Quit
    Set App = Nothing

It works in the basic way, but I need to be able to prevent the Orientation Prompt (adjust orientation automatically?), and to be able to select "FIT TO PAGE".



Thanks In Advance for any and all help.