---

AnleitungVBSPDFErstellung.pdf

Ich habe eine Anleitung der automatischen PDF-Erstellung gemacht. Der Dank gilt hier unserem Mitarbeiter, der Das herausgetüftelt hat.

Bitte meldet euch wenn's nicht geht... bei mir ging mit der Anleitung.

Zum Herauskopieren, weil es im PDF bei manchen PSs schlecht geht  :

Sub AutoSave()
    PlotAllSheetsInDrawing
End Sub

Public 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 = "Acrobat Distiller"
       
        '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

------------------
Grüsse
André

          Schnappt euch die Marketingleute von Autodesk           
            und zeigt ihnen welche Freude ihr an den "Verbessungen" habt.

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

---

hi menzi muck!

tolle sache uŽs sind unterwegs!
hätte noch 3 fragen an dich:
1. läßt sich das ganze über einen button steuern
(also nicht automatisch)?
2. funktioniert es auch mit free-pdf?
3. läßt sich der speicherort der pfd-datei festlegen?

danke im voraus
lg Meex

------------------
Schöne Grüße Meex 

PS: Auch 1 Tropfen hebt den Meeresspiegel !

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

---

1. Keine Ahnung, aber ich vermute, wenn du dem PDF den Header AutoSave (= wird ausgeführt, wenn gespeichert wird) entfernst und die Programmzeilen in ein Makro einfügst, dann sollte es vielleicht gehen... aber ich bin nicht der VB Profi... ich habe es von unserem Mitarbeiter abgeschrieben.
2. Auch wieder keine Ahnung, aber ich vermute, wenn du den free-PDF als Drucker definiert hast, dann kannst du auf diesen Drucker verweisen
3. Das müstest du im Free-PDF umstellen... wo habe ich keine Ahnung

------------------
Grüsse
André

          Schnappt euch die Marketingleute von Autodesk           
            und zeigt ihnen welche Freude ihr an den "Verbessungen" habt.

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

---

Super Sache André... Dank an Dich und Deinen Kollegen ... 
Gruß Martin

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

---

Hallo,

klappt super nur ein kleines Problem. ich hätte gerne "Hochformat"
Was muss ich ändern??

Gruß
Gazelle

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

---

Hallo André

Super Sache. Klopf deinem Mitarbeiter kräftig und ausgiebig die Schulter !

FreePDF installiert sich als Drucker ! müßte funktionieren !

Grüße Husky

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

---

@gazelle

"oDrgPrintMgr.Orientation = kLandscapeOrientation" auf "oDrgPrintMgr.Orientation = kPortraitOrientation" ändern.
Ist nur eine Vermutung aber sollte gehen...

------------------
Grüsse
André

          Schnappt euch die Marketingleute von Autodesk           
            und zeigt ihnen welche Freude ihr an den "Verbessungen" habt.

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

---

hi zusammen !

mein inventor hängt sich immer auf?
fehler beim drucken der pdf datei bla bla bla ?

------------------
Schöne Grüße Meex 

PS: Auch 1 Tropfen hebt den Meeresspiegel !

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

---

@meex

Kommt der Fehler auch, wenn du normal über "Datei" Druckerauswahl = Distiller --> "Drucken" gehst?

Falls ja --> Druckertreiber ist futsch

Falls nein --> 

------------------
Grüsse
André

          Schnappt euch die Marketingleute von Autodesk           
            und zeigt ihnen welche Freude ihr an den "Verbessungen" habt.

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

---

hi!

muß am adobe distiller liegen!
mit freepdf funktioniert es.
normales drucken mit dstiller funktioniert auch.

lg meex

------------------
Schöne Grüße Meex 

PS: Auch 1 Tropfen hebt den Meeresspiegel !

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

---

Hi MenziMuCk,

prima Sache, Dein VB-Code. Läßt sich wunderbar anpassen. Schön wäre es jetzt noch, wenn das Tool die Seitenorientierung und Größe erkennen könnte und dies dann entsprechend an den PDF-Creator weitergibt. Eventuell erbarmt sich ja ein VBler... ;-)

Gruß
NobbiB

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

---

Für dieses Tool würde auch ich über unities gehen...

------------------
Grüsse
André

          Schnappt euch die Marketingleute von Autodesk           
            und zeigt ihnen welche Freude ihr an den "Verbessungen" habt.

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

---

Hi,

ich habe jetzt keine Zeit zum testen, aber probiert mal die Zeilen:

oDrgPrintMgr.PaperSize = kPaperSizeA4
oDrgPrintMgr.Orientation = kLandscapeOrientation

durch die Zeilen:

oDrgPrintMgr.PaperSize = oDrgDoc.ActiveSheet.Size
oDrgPrintMgr.Orientation = oDrgDoc.ActiveSheet.Orientation

zu ersetzen.

Bis bald...

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

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

---

Hi daywa1k3r,

danke für Deine Hilfe...leider funzt das nicht so wie gewünscht. Zumindest mit Acrobat 6...

Gruß
NobbiB

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

---

Schade 

Ich wollte es gestern Nacht testen, aber ich habe leider den distiller nicht, so dass das Makro bei mir gar nicht läuft. Mal schauen, vielleicht kriege ich noch so ein Teil, dann wird es schon besser (  hoffe ich  )

Bis dann...

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

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

---

...wäre prima! Hab zwar jetzt auch 'ne Lösung (mit drei verschiedenen Makros), aber daß kann es noch nicht sein. Bequemer und sicherer wäre das halt schon, wenn man da nur ein Button zu drücken hätte...

Thx a lot!
NobbiB

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

---

Hallo,

kann man das Makro auch bestehenden Zeichnungen
zuweisen ??

Grüße
Andi

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

---

Hallo Andi S,

das Marko weist Du am besten nicht einer Zeichnung zu, sondern der Anwendung (Anwendungsprojekt). Das MAkro steht dann im Default.ivb.

Es ist dann immer verfügbar, wenn Inventor läuft.

------------------
Gruß LBCAD

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

---

Hallo LBCAD,

wie kann ich das Macro dem default.ivb zuweisen ??

Grüße
Andi

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

---

Einfach in ein Modul des Anwendungsprojektes reinkopieren und abspeichern.

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

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

---

Hallo daywa1k3r,

habe diese versucht, aber leider immer noch ohne Erfolg !?!
Außerdem sollte ich noch wissen, wie ich den Makropfad (JPEG)
umstelle (in den Anwendungsoptinen ist der Pfad umgestellt) ??

Grüße
Andi

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

---

Makro.jpg

Sorry, habe das JPEG vergessen..

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

---

Hi,

du kannst über Datei -> Projekt laden... eine *.ivb Datei laden. Erst dann ist die "auswählbar". Aber was ich nicht verstehe ist:

Zitat:

---

habe diese versucht, aber leider immer noch ohne Erfolg !?!

---

Was soll denn da nicht funktionieren ?

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

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

---

Hallo daywa1k3r,

irgendwie verstehe ich nicht ganz was Du meinst, soll ich
ein neues Projekt anlegen ?? Unter Datei--> Projekt..
bekomme ich keine Möglichkeit eine ivb zu laden !!
Kann es sein dass ich irgendwie auf dem Schlauch sitze ??

Grüße
Andi

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

---

Wie du hast kein Datei -> Projekt laden... ?

Welche IV Version ? Du bist schon im Inventor VBA Editor ? Oder ? Inventor auf, ALT + F11 ?

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

[Diese Nachricht wurde von daywa1k3r am 04. September 2003 editiert.]

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

---

Habe mich wohl etwas falsch ausgedrückt,
das Projet (default.ivb) kann ich im vba laden,
füge dann das neue Modul dazu...soweit funktioniert alles.
Wenn ich aber dann unter Extras->Makros reingehe, wird
dort ein anderer Pfad angezeigt ??

Grüße
Andi

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

---

Ja, dann hast du den Pfad in Extras -> Anwendungsoptionen -> Datei -> Standard-VBA-Projekt verstellt.

Die default.ivb ist in Inventor/Bin/Macros/

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

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

---

Habe den Pfad wieder Stadardmäßig eingestellt,
beim öffnen von Extras->Macros wird aber immer noch
ein anderer Pfad angezeigt ??

Grüße
Andi

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

---

Dann stimmt was nicht! Bei mir wird immer der Pfad angezeigt, den ich auch in Anwendungsoptionen eingestellt habe.

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

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

---

Hast Du eventuell ein Idee an was das liegen
könntne ??

Gruß
Andi

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

---

Meinst du unten bei "makros in:"
hast du in der Liste mal geschaut, ob in der Liste was drin ist?

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor
Inventor Wunschliste
Dressler GmbH Computer-Technologie, Friedrichshafen

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

---

Ja, genau da.
Wenn ich die Liste aufklappe kommt zwar der richtige Pfad,
hat aber keinen Einfuss wenn ich eine bestehende Zeichnung
öffne ??

Grüße
Andi

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

---

ich kenne jetzt nicht genau das Problem aber das PDF Tool muss in der Vorlage der IDW sein nicht in der default.ivb
wenn du ein paar Makros einbinden willst nimm das tool Mr. Macro: http://www.kacaju.de/praktische_programme.htm#_Toc50384817

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor
Inventor Wunschliste
Dressler GmbH Computer-Technologie, Friedrichshafen

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

---

Hallo Jürgen,
da ich den Tip (siehe oben) bekommen habe das
Macro in die default.ivb einzubinden, habe ich
die versucht. Mein Problem ist, dass ich mit
älteren Zeichnungen die mit anderen idwŽs erstellt
wurden auch pdfŽs erstellen möchte.....
Grüße
Andi

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

---

ist in der Liste bei den macros kein "Anwendungsprojekt"?
alt + F11
Links bei den Projekten
da gibt es ein Anwendungsprojekt dort bei Module\Modul1 den Quelltext einfügen, speichern
dann unter Extras > Macros in der Liste Anwendungsprojekt wählen und oben das Modul Modul1.PlotAllSheetsInDrawing wählen und Ausführen anklicken.
dann macht er ein PDF Dok.
Icon einrichten:
RMT auf ein Symbol > Anpassen
register Befehle > Macros
das Makro Plotallsheetindrawing nach Oben in die Iconleiste ziehe.

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor
Inventor Wunschliste
Dressler GmbH Computer-Technologie, Friedrichshafen

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

---

SavePDFMacros.zip

Hi zusammen!

Zu dem thema noch eine Routine für Jaws PDF Creator
(thnx to pdriley aus dem Amiland  )

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor
Inventor Wunschliste
Dressler GmbH Computer-Technologie, Friedrichshafen

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

---

@Andi
Hier ein Link mit Bildern wie man VBA Code nutzt http://www.mymcad.com/KWiK/iCode/icoderun.htm

------------------
Grüsse
Jürgen
häufige Fragen zu Inventor
Inventor Wunschliste
Dressler GmbH Computer-Technologie, Friedrichshafen

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

---

Modul1.PlotAllSheetsInDrawing.Small.zip

... für alle die dem makro in der eigenen werkzeugleiste ein icon verpassen möchte. bitte in das verzeichnis speichern wo eure default.ivb (oder selbstbenannte *.ivb) sich befindet.
wer ein besseres icon hat kann es gerne zur verfügung stellen.
danke im voraus.

------------------
gruß
robby

eine interessante sammlung:

Zitat:

---

From: Sean Dotson
Date: Sep/05/03 - 15:38 (GMT)
IV won't do this built in.

Excluding Adobe Acrobat most people use one of the following PDF creators

Win2PDF ($35+) http://www.win2pdf.com/
CutePDF: (Free) http://download.com.com/3000-6675-10206471.html
PDF Creator (Free) http://sourceforge.net/projects/pdfcreator
PDF 995 ($10+) http://www.pdf995.com/
FreePDF (Free) http://shbox.de/fpdownload1.htm
JAWS PDF ($99) http://www.jawspdf.com/

and many more here:

http://www.linetype.com/advice/pdfcreation/index.htm

(I think I'll add this to the FAQ)

--
Sean Dotson, PE http://www.sdotson.com
Check the Inventor FAQ for most common questions www.sdotson.com/faq.html

---

[Diese Nachricht wurde von Robby Lampe am 05. September 2003 editiert.]

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

---

Hallo Zusammen,

hat mittlerweile schon jemand eine Lösung gefunden,
das das PDF nach Quer- bzw Hochformat automatisch
erstellt wird ?
Bislang ändere ich immer das jeweilige Makro in
Quer- bzw. Hochformat...

Grüße
Andi

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

---

Hallo Leute

Arrrgh, das ist echt zum verzweifeln!!!!!
Ich krieg dieses Macro einfach nich zum laufen....
Ich habe glaube ich jetzt schon alles versucht, gestern hat es auch noch funzt, aber heute kann ich speichern was ich will es will einfach nicht. *grummel*
Kann mir bitte jemand helfen...?? 

Gruß
Peter

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

---

Hallo Leute,
Da mir leider keiner helfen wollte...
So, nach zwei Tagen und zwei Nächten intensiver Überprüfung des Macros bin ich jetzt selbst drauf gekommen, wo der Fehler lag...
Ein ganz blöder Fehler 
Habe beim reinkopieren in den VBeditor übersehen, das oben Leer-
zeilen drin waren!!! Dann kannŽs ja gar net funktionieren 

Viele Grüße
            tabaluga

------------------
".... auf Wunsch betreiben wir mit unseren Hochpräzisions- Werkzeugmaschinen wahrhaftig Haarspalterei !! "
www.primacon.de

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

---

"Da mir leider keiner helfen wollte..."

Doch, wollte ich schon, aber erst mal können.

Meinen Acrobat 6prof (ca. 625 Euro) habe ich tagelang versucht, irgendwo zu bekommen und letztlich dann über's Internet bestellt, wird hoffentlich bald mal kommen, dann probier ich das Auto-PDF auch mal aus und werde dann gleich von Ihrem Tip meinen Nutzen haben.

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

---

Hi murphy,
Hui, hast Dich aber ganz schön in Unkosten gestürzt...
Wir arbeiten mit dem pdfFactory (Einzellizenz EUR 59,40)von Context
der tutŽs genauso, gibt es auch als Shareware mit der Contexteinblendung unten links im Dokument.
Probier das mal mit dem Macro aus und sag mir am Montag Bescheid!!!

Gruß
    tabaluga

------------------
".... auf Wunsch betreiben wir mit unseren Hochpräzisions- Werkzeugmaschinen wahrhaftig Haarspalterei !! "
www.primacon.de

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

---

Wie versprochen eine Antwort zum Stand der Dinge:

1. Adobes Acrobat 6 habe ich immer noch nicht.
2. Mein Chef hat sich das CONTEXT-Teil (pdf-Factory) heruntergeladen, installiert und ist schlicht begeistert davon. Die VBA-Automatik nutzt er aber nicht.
3. Der Hinweis auf CONTEXT stört eigentlich kaum.

Bin mal gespannt, was den Preisunterschied von 550 Euro rechtfertigen soll.

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

---

hallo murphy,
WOW, ein chef der begeistert ist und dabei noch Geld spart *lach*
Ich bin der meinung das der Preis vom Adobe6  nicht gerechtfertigt ist, Um nur pdf-files zu erstellen reicht so ein einfaches Proggi total aus.
Wenn man aber z.B. Dokumentationen über pdf erstellen will, um Baumstrukturen zu erstellen, dann würde ich ihn schon empfehlen. Jedoch würde ich erstmal überprüfen, ob es nicht andere Alternativen gibt. Es gibt inzwischen einige Free- bzw. Sharewareprogramme die das vielleicht auch schon können.

Schöne Grüße
            tabaluga

------------------
".... auf Wunsch betreiben wir mit unseren Hochpräzisions- Werkzeugmaschinen wahrhaftig Haarspalterei !! "
www.primacon.de

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

---

Ab der Version 1.6 ist das automatische generieren in NATIV dabei.
(((((Ab der Version 1.8 bei Freigabe aus einem EDM System (SAP COMPASS etc).
Habe Mut und Hoffnung   

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

---

Und heute ist er angekommen, der Acrobat 6.0prof, muß nachher mal installieren und schauen, was er taugt. Mein Chef ist immer noch ganz hingerissen von der pdf-factory.

"Habe Mut und Hoffnung"? Nein, ist mir vergangen. Sehr, sehr gründlich vergangen. Hat aber nichts mit Autodesk zu tun.

Nachtrag: Das ZDF hat soeben gezeigt, wie erstaunlich wenig man auf 1 Jahr leisten kann. Ich schaff mehr, jetzt hab ich wieder Mut und Hoffnung.

Schauen wir mal, was der 6er so kann und vor allem, ob er es mit dem IV kann.

[Diese Nachricht wurde von murphy am 05. November 2003 editiert.]

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

---

Und so ging's weiter:

ACROBAT 6 installiert  - geht.
PDF erstellen, geht auch, Automatik aber immer noch nicht, der ACROBAT fragt zuviel.

Dann PDFs verschickt, einer hat den 5er, kann die PDFs nicht öffnen, bekommt Fehlermeldungen mit Fonts und so, es fehlen ganze Zeichnungsteile. Mehrere Versuche bleiben erfolglos. Bei mir ging's ab der 4er Version, die 3er Version des Acrobat bringt dieselben Fehlermeldungen.

Also ein Versuch mit der pdf-Factory, die hier empfohlen wurde und viel preiswerter ist. Es kommt auf Anhieb alles rüber, sogar die 3er Version kann es mühelos lesen.

Als Fehlinvestition würde ich den 6er Acrobat-prof zwar nicht bezeichnen, aber die Ernüchterung sitzt doch ganz beträchtlich.

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

---

Hi Murphy.

Nimm doch FreePDF. Basiert auf Ghoscript, kost nix und ist auch automatisierbar, da es als normaleer drucker installiert wird.

Einziges MAnko: Die Dateinamen sind etwas eigenartig und die Dateien landen immer in einem best. Verzeichnis, per Default auf dem Desltop.

Gruß Mathias

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

---

Hier noch ne kleine Ergänzung:

- automatische Zuordnung der Ausrichtung, Hoch- oder Querformat
- A4 bis A2 automatische Zuordung des Formats und Druck 1:1
- A2 bis A0 Druck auf A2, Größe angepasst

________________________________________________________________
      'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA2
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA2
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA2
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
                GoTo Fettich
        End Select
       
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
            Case Else    ' Andere Werte.
                Debug.Print "ungültige Orientierung"
                GoTo Fettich
        End Select
______________________________________________________________________

Ich weiß, müßte eigentlich ins VBA-Forum, aber...

Gruß
Oliver

------------------
Wie man's macht ist verkehrt, aber
kaum macht man's richtig, geht's

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