---

Hallo Leute,

ich hab ein Problem beim Ausdruck von Zeichnungen über VBA. Mit hilfe des folgenden Skriptes stoße ich den Ausdruck an:

Code:

---

Public Sub Druck_A3_Quer()

'On Error Resume Next
    'Check isf active Document=Drawingdocument
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
        Call Plotdat
        'Drucken
   
        Dim oPrintMgr As drawingprintmanager
        Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
 
        oPrintMgr.Printer = "\\GLUTH-SERVER\HP Color LaserJet 5500 PCL 6"
        oPrintMgr.ColorMode = kPrintGrayScale
        oPrintMgr.ScaleMode = kPrintBestFitScale
        oPrintMgr.Orientation = kLandscapeOrientation
        oPrintMgr.PaperSize = kPaperSizeA3
        oPrintMgr.NumberOfCopies = 1
        oPrintMgr.SubmitPrint

    Else
        Dim oPrintManager As PrintManager
        Set oPrintManager = ThisApplication.ActiveDocument.PrintManager
       
        oPrintManager.Printer = "\\GLUTH-SERVER\HP Color LaserJet 5500 PCL 6"
        oPrintManager.ColorMode = kPrintColorPalette
        oPrintManager.Orientation = kLandscapeOrientation
        oPrintManager.PaperSize = kPaperSizeA3
        oPrintManager.NumberOfCopies = 1
        oPrintManager.SubmitPrint
       
    End If

End Sub

---

Dabei tritt folgendes Problem auf: Sporadisch wird eine Zeichnung mehrmals ausgedruckt. Dabei wird in dem Druckfenster das kurz erscheint die Seitenzahl hochgezählt. Es wird als Seite 1, Seite 2, Seite 3..... gedruckt, obwohl es nur eine Seite gibt.

Ist jemandem dieses Verhalten bekannt? Oder hat jemand eine Idee, woher das kommen kann?

Für Eure Hilfe wäre ich echt dankbar.

Schönen Tag

Ulrich

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

---

PrintRange?

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Es gibt nur eine Seite!

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

---

Hallo,

sollen immer alle Blätter gedruckt werden?

probier mal dies aus

oPrintManager.NumberOfCopies = 1

Dim iFromSheet As Long
Dim iToSheet As Long
Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)

MsgBox "Current sheet range is " & iFromSheet & " to " & iToSheet & Chr(13) & _
            "Setting to print sheets 1 ... ? "
oPrintMgr.PrintRange = kPrintSheetRange
Call oPrintMgr.SetSheetRange(iFromSheet, iToSheet)
   

oPrintManager.SubmitPrint

MFG VOSTA

[Diese Nachricht wurde von VOSTA1 am 06. Jul. 2005 editiert.]

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

---

Hallo Ulrich,

ich habe das selbe Problem mit unserem pdf-Drucker und meinem ähnlichen Plotprogramm. Keine Ahnung wieso aber ab und zu zählt er beim Druck die Seiten hoch, meistens bis vier, und ich habe dann eine pdf-Datei mit 4 identischen Seiten. Wenn ich anschließend den Druck mit dem Druckbefehl wiederhole klappt es einwandfrei, und merkwürdigerweise klappt es nachfolgend auch mit meinem Programm wieder.
Hast Du inzwischen rausgefunden worin das Problem liegt, hat es etwas mit dem PrintRange zu tun?

Grüße
Dieter

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

---

HAllo Dieter,

ich habe die PrintRange auf kPrintCurrentSheet gesetzt. hat aber nichts geholfen.
Dann hab ich mich noch über die restlichen Eigenschaften hergemacht, die ich noch nicht bewusst gesetzt hatte.
Erfolg hatte ich schließlich mit

Code:

---

oPrintMgr.TilingEnabled = False

---

Seither habe ich keine Probleme mehr. Ich hoffe, dass das auch so bleibt.

Schöne Grüße

Ulrich

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

---

Hallo Ulrich,

vielen Dank für den Tipp, das hat anscheinend bei mir auch geholfen.

Viele Grüße
Dieter

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

---

Ich verwende folgende Routine um meine Dateien als pdf-Dateien zu drucken und habe seit Inventor 10 das gleiche Problem das das letze Blatt eine Zeichnung bis zu 15 mal wiederholt wird. Was hat sich denn geändert zu Inventor 9 ?

Sub PlotAllSheetsInDrawing()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
       
        Dim oDrgDoc As DrawingDocument
        Set oDrgDoc = ThisApplication.ActiveDocument
       
        ' Set reference to drawing print manager
        ' DrawingPrintManager has more options than PrintManager
        ' as it's specific to drawing document
        Dim oDrgPrintMgr As DrawingPrintManager
        Set oDrgPrintMgr = oDrgDoc.PrintManager
        ' Set the printer name
        ' comment this line to use default printer or assign another one
        oDrgPrintMgr.Printer = "FreePDF XP"
       
        'Set the paper size , scale and orientation
        oDrgPrintMgr.ScaleMode = kPrintBestFitScale
        oDrgPrintMgr.PaperSize = kPaperSizeA4
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        oDrgPrintMgr.Orientation = kLandscapeOrientation
           
        oDrgPrintMgr.SubmitPrint
    End If
End Sub

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

---

Ich weis auch nicht, was sich geändert hat. Die einzige Möglichkeit die mir blieb, war möglichst viele Attribute des Printmanagers explizit zu setzen.
Das oben genannte Attribut brachte dann den Erfolg.
Versuchs doch einfah mal.

Schöne Grüße

Ulrich

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