---

Hallo zusammen,

ich bin auf der suche nach einem kleinen VB Script.
Dieses Soll zwei bestimmte Draftseiten (Reiter) auf einem Drucker im duplex Modus ausgeben. Der Drucker ist duplexfähig und die Dateireiter die gedruckt werden sollen, haben immer die selbe bezeichnung (Zeichnung, Stückliste)
Hat jemand soetwas evtl. schon mal geschrieben?
Wenn nicht, kann mir vieleicht jemand sagen, wie ich in VB den Zeichnungsblattnamen (Reiternamen) auslesen?

------------------
Gruß
René

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

---

Moin Rene,

sollte so laufen allerdings gibt es keinen Parameter um explizit
Duplex anzufordern daher das Range Argument. Speichern als .VBS
Kein Error-handling eingebaut!

=====
Option Explicit

    Dim i
    Dim cnt
    Dim sRange
    Dim mApp
    Dim mDraft

    Set mApp = GetObject(, "SolidEdge.Application")
    ' alternative (Draft/SE nicht offen)
    'Set mApp = CreateObject("SolidEdge.Application")
    'Call mapp.Documents.Open(" your file path ")
    '
    Set mDraft = mApp.ActiveDocument
    For i = 1 To mDraft.Sections.WorkingSection.Sheets.Count
If mDraft.Sections.WorkingSection.Sheets(i).Name = "Blatt1" Or _
  mDraft.Sections.WorkingSection.Sheets(i).Name = "Sheet1" Then
    sRange = sRange & i & ","
    cnt = cnt + 1
    If cnt >= 2 Then
sRange = Left(sRange, Len(sRange) - 1)
Exit For
    End If
End If
    Next
    If cnt > 0 Then
  '  PrintOut([Printer], [NumCopies], [Orientation], [PaperSize], [Scale], [PrintToFile], [OutputFileName], [PrintRange], [Sheets], [ColorAsBlack], [Collate])
    Call mDraft.PrintOut("Adobe PDF",,,,,,,sRange)
    Else
    MsgBox "Blaetter nicht gefunden"
    End If
    sRange = vbNullString
    cnt = 0
   
' Clean up
' wenn Alternative
' Call mDraft.Close(FALSE)
'
Set mDraft = Nothing
Set mApp = Nothing

====

------------------
Lieber Fehler riskieren als Initiative verhindern (R. Mohn)

[Diese Nachricht wurde von modeng am 16. Apr. 2008 editiert.]

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

---

Moin Klaus,

DANKE für deine Hilfe. Da ich momentan viel zu tun habe, komm ich nicht dazu das umzusetzten.
Sobald ich Zeit finde werd ich es testen.

Gruß
René

------------------
Gruß
René

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