Hallo Leute,
hab wieder an meinen makros weiterprogrammiert und hab ein vom hilfebsp. den pdf export (INV2010) enteckt und diesen besser gefunden als ein pdf zu drucken
nur mein problem ist ich versteh nicht wie ich zu einen "speichern unter" komme
Public Sub PDF()
Dim oDoc As DrawingDocument
Dim Msg
' If an error occurs, construct an error message
On Error Resume Next ' Defer error handling.
Err.Clear
'Err.Raise 6 ' Generate an "Overflow" error.
' Check for error, then show message.
If Err.Number <> 0 Then
Msg = "KeineZeichnung "
MsgBox Msg
End If
Set oDoc = ThisApplication.ActiveDocument
oDoc.SheetSettings.SheetColor = ThisApplication.TransientObjects.CreateColor(255, 255, 255)
' Get the PDF translator Add-In.
Dim PDFAddIn As TranslatorAddIn
Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
'Set a reference to the active document (the document to be published).
Dim oDocument As Document
Set oDocument = ThisApplication.ActiveDocument
Dim oContext As TranslationContext
Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = kFileBrowseIOMechanism
' Create a NameValueMap object
Dim oOptions As NameValueMap
Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
' Create a DataMedium object
Dim oDataMedium As DataMedium
Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
' Check whether the translator has 'SaveCopyAs' options
If PDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
' Options for drawings...
oOptions.Value("All_Color_AS_Black") = 0
'oOptions.Value("Remove_Line_Weights") = 0
'oOptions.Value("Vector_Resolution") = 400
'oOptions.Value("Sheet_Range") = kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2
'oOptions.Value("Custom_End_Sheet") = 4
End If
'Set the destination file name
oDataMedium.FileName = "c:\temp\test.pdf" <------
'Publish document.
Call PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
Dim oFarbe As DrawingDocument
Set oFarbe = ThisApplication.ActiveDocument
oFarbe.SheetSettings.SheetColor = ThisApplication.TransientObjects.CreateColor(42, 42, 42)
End Sub
vielleicht kann mir einer dabei helfen
danke im voraus
------------------
mfg Ronald
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP