Hi, i have a problem and it's driving me nuts. I have some corel files with print grid layer button turned on and it's impossible to turn it off.
This have a secondary effect and it's corel hangs up when i try to print the file, start to make the "previous checkings" and never ends.
I'm desesperate, any of you can you help me please?
Thanks
Capture of the problematic files:
Capture of a normal corel file:
:
A normal user can make the grid layer visible/invisible. However Printable or editable attributes can be changed with VBA only. It seems that you have run a macro which has changed the attributes. Try this code. I have not tried it on my DRAW but this should work.
Private Sub GridNoPrint()
Dim doc As DocumentDim lyr As Layer
Set doc = CorelDRAW.ActiveDocument
For Each lyr In doc.MasterPage.LayersIf lyr.Name = "Grid" Thenlyr.Printable = FalseEnd IfNext
End Sub
Thank you Anand. I was wondering how he got that turned on - and how to turn it off.
Anand thank you very much for your reply.
I have tested your code and doesn't work. I create a new macro, paste the code in it and execute but nothing happens.
Maybe i'm doing something wrong?
Thank you in advance
Ronny Axelsson said:Unfortunately the GMS supplied by Anand below seems to be non-functional, at least with X6.
The Grid layer name has changed in X6. Only change one needs to do is :
If lyr.Name = "Document Grid" Then
And its done in X6
Anand Dixit said: Private Sub GridNoPrint() Dim doc As DocumentDim lyr As Layer Set doc = CorelDRAW.ActiveDocument For Each lyr In doc.MasterPage.LayersIf lyr.Name = "Grid" Thenlyr.Printable = FalseEnd IfNext End Sub