OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 30-07-2012, 06:29
Goodvinvv's Avatar
Goodvinvv Goodvinvv is offline
Junior Member
 
Join Date: Jul 2012
Posts: 4
Lightbulb X5 print ps-file

hi, everybody! Faced a problem of the following character: passing a dialog of the printer I print ps (each color in the file), but all separations, but only in advance known (for example only cyan and black or only Pantone 109 C are necessary not.).
question:
1. A recording capability in ps the file of only one color
2. Possibility to specify way of saving of ps of file
3. Possibility to appropriate names ps to the file

Last edited by Goodvinvv; 30-07-2012 at 07:14.
Reply With Quote
  #2  
Old 01-09-2012, 13:07
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default PS - File

If you show your settings in the dialog maybe we can figure out if they are all scriptable.

-Shelby
Reply With Quote
  #3  
Old 07-09-2012, 08:49
Goodvinvv's Avatar
Goodvinvv Goodvinvv is offline
Junior Member
 
Join Date: Jul 2012
Posts: 4
Default

Code:
With ActiveDocument.PrintSettings
       
         .SelectPrinter "Adobe PDF"
       
        
        .PrintToFile = False
        .PrintToFile = True
        
        .FileMode = prnSeparatePlates 
        .filename = realHotFolder & Left(ActiveDocument.Name, 5) & ".ps"
        
        .ForMac = False
        .PrintRange = prnCurrentPage
        
        .UsePPD = False
        .UsePPD = True
        .PPDFile = "C:\Program Files\......\Settings\PrinterSet\GoodvinPDF6.PPD"
        With .Options
            .ObjectsColorMode = prnObjectsCMYK
            .UseColorProfile = False '= True
            .DriverInfo = False
            .MarksToPage = False
            .UseColorProfile = False 'True
            .AppInfo = False
            .JobInformation = False
            .PrintBitmaps = True
            .PrintText = True
            .PrintVectors = True
            .SepsInfo = False
            .TextInBlack = False
            
        End With
        
        With .PostScript
            .Level = prnPSLevel3
            .MaintainOPILinks = False
            .ResolveDCSLinks = False
            .DownloadType1 = False
            .Level = prnPSLevel3
            .TrueTypeToType1 = False
            .PDFStartup = prnPDFPageOnly
        End With
        
                
        With .Separations
            
            .Enabled = True
                                  'for example
                                .Plates(1).Enabled = False
                                .Plates(2).Enabled = True
                                .Plates(3).Enabled = False
                                .Plates(4).Enabled = False

            .PreserveOverprints = True
            .AdvancedSettings = False
            .Resolution = 2400
            .BasicScreen = "175"
            .AlwaysOverprintBlack = False
            .SpotToCMYK = False
            .EmptyPlates = False
        End With
        
        
        With .Prepress
                
        .InfoWithinPage = False
        .Invert = False
        .JobName = False
        .MarksToObjects = False
        .MarksToObjects = False
        .Mirror = False
        .PageNumbers = False
        .FileInfo = False
        .CropMarks = False
        .RegistrationMarks = False
        .ColorCalibrationBar = False
        .DensitometerScale = False
        
        End With
        
        
         With .Layout
         .UseBleedLimit = False
         .Placement = prnPlaceAsInDocument
         .PrintTiledPages = False
         End With
         
        '''.ShowDialog
        
        .PrintOut
    
    End With
Reply With Quote
  #4  
Old 09-09-2012, 17:50
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Print PS-File

So what is the problem? I am still unclear what is not working.

-Shelby
Reply With Quote
  #5  
Old 10-09-2012, 03:37
Goodvinvv's Avatar
Goodvinvv Goodvinvv is offline
Junior Member
 
Join Date: Jul 2012
Posts: 4
Default

doesn't print as in a task
Code:
.
.................
Plates(1).Enabled = False
.Plates(2).Enabled = True
.Plates(3).Enabled = False
.Plates(4).Enabled = False
...............
prints all separations


how to print PS of only one ink (for example magenta)?
Reply With Quote
  #6  
Old 10-09-2012, 08:42
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Print

If you remove these lines:
Code:
.UsePPD = False
.UsePPD = True
.PPDFile = "C:\Program Files\......\Settings\PrinterSet\GoodvinPDF6.PPD"
Does it Print only the plate you wish?

-Shelby
Reply With Quote
  #7  
Old 12-09-2012, 02:09
Goodvinvv's Avatar
Goodvinvv Goodvinvv is offline
Junior Member
 
Join Date: Jul 2012
Posts: 4
Default

for me these lines are very important
here to ppd the size of page, I write on selection for example

the user area of the press can be any size and a position.
I create page in CorelDraw. I shift the area of the press necessary to me on page and the size of this page I write down in ppd further this ppd I load.....

having solved one problem I created also another.....

Last edited by Goodvinvv; 12-09-2012 at 03:58.
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
BUG: Print events don't work when printing from Print Preview runflacruiser CorelDRAW/Corel DESIGNER VBA 2 09-08-2011 12:47
Simple Print Msg that comes up before print icons fungel General 1 10-10-2010 16:23
How to import values from a file, replace text,save file for each value with new name amaart CorelDRAW/Corel DESIGNER VBA 1 28-09-2007 12:41
X3 and print dialogue box jkendo General 9 13-07-2006 09:09
How to print to pdf file with imposition layout samhoods General 1 08-04-2006 23:45


All times are GMT -5. The time now is 15:51.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com