×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

CYCLE THROUGH CAPTURE SELECTION AND DISPLAY EACH CAPTURE ONE BY ONE FOR PRINTING

CYCLE THROUGH CAPTURE SELECTION AND DISPLAY EACH CAPTURE ONE BY ONE FOR PRINTING

CYCLE THROUGH CAPTURE SELECTION AND DISPLAY EACH CAPTURE ONE BY ONE FOR PRINTING

(OP)
Hello Ferdo and Others

I am trying to cycle through Captures, one by one, for printing the screens. See partial VBA code at bottom and attached image for more info.

However, when running the code to cycle through the captures, there are small "CATIA V5" windows appeared as seen on attached image. If I remove the "MsgBox CurCapture.DisplayCapture" statement, captures are not able to cycle and displayed for printing.

1) How can I still cycle and display the captures, one by one for printing but without the small "CATIA V5" windows?

Also, I want to obtain the capture's name/value (ex: PART INFORMATION) displayed just before the actual screen appeared (to confirm the right screen displaying before printing). I look at property "Name" of Captures but it won't work. How could I obtain captures' name (or value) for displaying?

Any suggestion or example code?

Thank you again

Quin

============================== VBA CODE =====================

' Set the first annotation set
Dim AnnoSet1 As AnnotationSet
Set AnnoSet1 = oAnnotationSets.Item(1)

' Get the number of captures in "annotSet1" above
Dim NumberCaptures As Integer
NumberCaptures = AnnoSet1.Captures.Count

MsgBox "Number of annotation sets is: " & oAnnotationSets.Count & " and number of captures is: " & NumberCaptures

' Loop through capture collection
Dim j As Integer
For j = 1 To NumberCaptures

' Display the current capture
Set CurCapture = AnnoSet1.Captures.Item(j)

MsgBox CurCapture.DisplayCapture

Next

RE: CYCLE THROUGH CAPTURE SELECTION AND DISPLAY EACH CAPTURE ONE BY ONE FOR PRINTING

CODE --> code

MsgBox CurCapture.DisplayCapture 

does the small CATIA V5 window... remove that function and voila

Eric N.
indocti discant et ament meminisse periti

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources