---

Hallo,

das TIF-Drucken wird bei uns per Makro erledigt. Nun habe ich das Problem, dass alle aktiven Sheets ausgegeben werden - also incl. der Detail sheets. Habt ihr eine Idee wie wir das unterbinden können  ?

Hier ein Auszug aus dem Skript:

-----------------------------------------
Set MyDoc = CATIA.ActiveDocument

i = 1

For Each MySheet In MyDoc.Sheets
    Set pageSetup1 = MySheet.PageSetup
    pageSetup1.PaperSize = catPaperA0
    pageSetup1.Orientation = catPaperPortrait
    'pageSetup1.Orientation = catPaperLandscape
    pageSetup1.LeftMargin = 0
    pageSetup1.RightMargin = 0
    pageSetup1.TopMargin = 0
    pageSetup1.BottomMargin = 0
    MySheet.PrintToFile OutDirectory & FileName & "_" & i & ".tif"
    i = i + 1
Next
------------------------------------------

Danke,

Gruß
manu_b

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Manu,

du kannst du mit .IsDetail abfragen ob ein Blatt ein DetailSheet ist oder nicht.

Code:

---

Dim oDoc as Document
Dim oSheets as Sheets

Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
For i =1 to oSheets.Count
  If oSheets.Item(i).isDeatil = false then
    'hier musst du drucken
  Else
    'hier passiert nicht weil das Blatt ein DetailSheet ist
  End If
Next

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

besten Dank für deine Antwort.

Funktioniert .lsDetail auch ohne vba ? Wir müssen das Makro als Catscript laufen lassen, da bei den Anwendern vba nicht unterstützt wird.

Gruß
Manu

------------------
XING

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ja sicher das ist ja einen CATIA Methode und keine VBA Methode. Im CATScript geht es auch mit einem geänderten Syntax:

If Not mySheet.IsDeatil then
....
End If

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super - Es funktioniert.

Vielen Dank !!

------------------
XING

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP