VB.NET 2013 - X7 - Setting Number of Copies

I am trying to open a CorelDraw X7 file in vb.net 2013 and print to a specific printer on my network. I have no problems getting that far. However, once I try to assign the number of copies, it always return 1 copy. This was working fine when I was using X4 but in X7 it just doesn't want to assign the copies.
What am I doing wrong? Also is there any documentation on using Corel.Interop.VGCore in vb.net not vba?

Imports c = Corel.Interop.VGCore

Dim cdrApp As c.Application = CType(CreateObject("CorelDRAW.Application.17"), c.Application)
cdrApp.StartupMode = Corel.Interop.VGCore.cdrAppStartupMode.cdrStartupDoNothing
cdrApp.OpenDocument("C:\Test.cdr")
cdrApp.ActiveDocument.PrintSettings.Copies = 4
cdrApp.ActiveDocument.PrintOut()
cdrApp.ActiveDocument.Close()
cdrApp.Quit()
cdrApp = Nothing

0 Shelby Moore over 9 years ago
I have found that Copies is very picky. Some printers it works with others it does not, so to make sure that everything works 100% of the time, I just added my own loop:

For i = 1 To intCopies doc.PrintOut Next i

Hope that helps,

-Shelby
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Ostrem over 9 years ago in reply to Shelby Moore

Thanks Shelby. Unfortunately I'm printing labels on a roll. I need them to print all copies then cut the roll as a batch. I seem to have posted this in two different spots on the site and didn't update this one.

When I change this line
Dim cdrApp As c.Application = CType(CreateObject("CorelDRAW.Application.17"), c.Application)
to
Dim cdrApp As c.Application = CType(CreateObject("CorelDRAW.Application.14"), c.Application)
everything works.

I even went into CorelDraw X7, recorded a macro of a print job with me changing the copies to 4. It printed 4 copies. However when I ran that macro on the same file, it showed that copies was set as 4 but only printed one. I even changed my printers. I think there is a bug in X7.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Dan Rimer over 7 years ago in reply to Ostrem

Hi Ostrem

Did you ever get to the bottom of this?

Thanks

Dan
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 NudeFan over 7 years ago in reply to Dan Rimer

I don't know exactly your problem / environment. But I remember an issue I had where I had to fill a sheet with a certain number of labels by row and columns. There I could vary the number of copies only in a range to fill the last row.
Maybe this helps you to identify your problem.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel