OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   Macros/Add-ons (http://forum.oberonplace.com/forumdisplay.php?f=21)
-   -   Quick view plates (http://forum.oberonplace.com/showthread.php?t=24611)

grzjanik 28-03-2013 03:25

Quick view plates
 
Hi guys.

I'm working in Corel 12.

I would like to have a quick preview plates.

The idea is that the program in the status bar to display the currently used plates.

Will you help me do something like this?

http://grzjanik.ovh.org/oberon/plates.jpg

It is possible that to be useful to other users. :)

Thank you in advance.

GrzJanik

grzjanik 21-05-2013 07:45

Plates - true or false
 
Hi guys.

I'm working in Corel 12 and...

this code:

Code:

Sub PlatesTest()

Dim strPlates As String
Dim Plate As SeparationPlate
Dim intPlateCounter As Integer
 
ActiveDocument.PrintSettings.Separations.Enabled = True

    With ActiveDocument.PrintSettings.Separations
      For intPlateCounter = 1 To .Plates.count - 1
          If .Plates(intPlateCounter).Enabled = True Then
            strPlates = strPlates & .Plates(intPlateCounter).Color & vbCr
          End If
      Next intPlateCounter
          MsgBox strPlates
    End With

intPlateCounter = 1

ActiveDocument.Windows.Refresh

End Sub


shows this message:


http://grzjanik.ovh.org/oberon/screen03.png


What can I do to show the truth?


http://grzjanik.ovh.org/oberon/screen04.png

Please help me change the code to show only those plates which are actually used in the document.

Regards.

GrzJanik

grzjanik 10-07-2013 02:31

Quick view plates
 
Hi.

Anybody know how to fix this code?

Greetengs

~GrzJanik


All times are GMT -5. The time now is 20:49.

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