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 12-04-2006, 00:29
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 434
Default Setting Printable Layers

Hello, I have the following macro for setting the printable layers of a document

Code:
Sub print_text()
    
    Dim p As Page
    
    For Each p In ActiveDocument.Pages
    
    p.Layers("text").Activate
    p.Layers("text").Visible = True
    p.Layers("text").Printable = True
    p.Layers("images").Visible = False
    p.Layers("images").Printable = False
    p.Layers("back").Printable = True
    p.Layers("back").Visible = True
    
    Next p
    
End Sub
This works but seems very slow. Is there a simple command to set the printable and visible qualities for a layer without having to go through each individual page?

Thanks,

Chris (Hunt)
Reply With Quote
  #2  
Old 12-04-2006, 02:09
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

Try ActiveDocument.MasterPage.Layers("text").Visible = True instead. You do it only on the master page and the layers on real pages will reflect this change.
Reply With Quote
  #3  
Old 13-04-2006, 08:38
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 434
Default

Thanks Alex, that did the job perfectly.

Best wishes,

Chris
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
Preserving layers in an export to PDF dan General 0 27-10-2005 17:22
arange layers cristov CorelDRAW/Corel DESIGNER VBA 3 24-10-2005 15:48
How controll lot of layers? petig CorelDRAW/Corel DESIGNER VBA 5 28-08-2005 02:35
Send to layers click101 CorelDRAW/Corel DESIGNER VBA 4 14-09-2004 02:46
File Converter - turning off layers venturian CorelDRAW/Corel DESIGNER VBA 6 27-01-2004 08:08


All times are GMT -5. The time now is 06:11.


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