Hallo Werner,
ich gehe davon aus, dass du Excel 2007 verwendest, da du nichts Gegenteiliges geschrieben hast. Das PDF-Programm kenne ich zwar nicht, aber versuche einmal, das Makro aufzuzeichen.
Wenn du Excel 2007 nicht verwendest, kann das Makro nicht laufen, weil ExportAsFixedFormat erst in dieser Version hinzugefügt wurde.
Dann könnte es klappen, wenn du den Druckbereich in ein neues Workbook kopierst und speicherst. Danach kannst du vielleicht mit Shell dein PDF-Programm so aufrufen, dass du als Parameter den Pfad zu deiner zwischengespeicherten Exceldatei angibst. Eventuell ist auch eine Lösung mit Printout unter Wahl des PDF-Druckers möglich.
Ich möchte bei mir die Abwesenheit von Adobe nicht simulieren, weshalb ich meine Vorschläge nicht testen kann. Um Viren zu vermeiden, lasse ich auch keine Freeware-SW auf meinem PC laufen, so dass ich deine angegebenen Programme nicht ausprobieren werde. Ich bitte dafür um Verständnis.
Ohne Erfolgsgarantie zum Experimentieren:
Application.CutCopyMode = False
Zwischendatei = "..."
'Kill Zwischendatei 'ab dem 2. Durchlauf
Range(ActiveSheet.PageSetup.PrintArea).Copy
Set NewWorkbook = Workbooks.Add
a = NewWorkbook.Name
Cells(1, 1).PasteSpecial
ActiveWorkbook.SaveAs Filename:=Zwischendatei
1.: ActiveWorkbook.Printout filename:=Zwischendatei, ActivePrinter="..." 'Name deines PDF-Druckers
ActiveWorkbook.Close
oder 2:. a = Shell("Pfad .exe deines PDF-Prg" + " "+Zwischendatei, vbNormalFocus)
Manchmal wird anstelle des Leerzeichens auch ein "/" zur Trennung von Pfad und Parameter benötigt.
Leider kann ich nicht mehr für dich tun
Holger
Werner schrieb am 09.03.2009 08:11:56:
Hallo...
Wir verwenden den PDFCreator ... ist freeware
http://www.pdfforge.org/
http://www.chip.de/downloads/PDFCreator_13009777.html
Ich hoffe du kannst helfen
Gruß
Werner
Holger schrieb am 08.03.2009 20:59:48:
Hallo Werner,
merkwürdig, bei mir funktioniert es mit Office 2007 und dem uralten Adobe Acrobat 5.0.
Welche Office-Version verwendest du? Hast du Adobe Acrobat oder welchen anderen PDF-Maker in welcher Version auf dem PC?
Gruß
Holger
Werner schrieb am 08.03.2009 17:05:07:
Hallo Holger…. Danke für die Hilfe
Leider funktioniert es nicht.....bin wahrscheinlich auf dem falschen weg
Bekomme die Fehlermeldung …
Laufzeitfehler `5`
Ungültiger Prozeduraufruf oder ungültiges Argument
Der Bereich
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Wird gelb
Was mache ich falsch
Gruß
Werner
Holger schrieb am 08.03.2009 10:18:27:
Hallo Werner,
danke für die "Blumen". Ich gehe davon aus, dass du den Druckbereich eingerichtet hast und in B2 nur der Name der Datei, aber nicht der Pfad dorthin, steht. Versuche dann
Pfad = "c:\" 'Pfad Speicherort PDF-Datei einschl. abschließendes \: C:\Dokumente und Einstellung\...\
If UCase(Right(Cells(2, 2), 4)) = ".PDF" Then
Pfad = Pfad + Cells(2, 2)
Else
Pfad = Pfad + Cells(2, 2) + ".PDF"
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.WindowState = xlMinimized
Gruß
Holger
Werner schrieb am 07.03.2009 12:11:33:
Hallo….
Ich möchte durch betätigen des CommandButton1 auf Tabelle 1 den Druckbereich (2Seiten) von Tabelle 2 als PDF Datei speichern. Der Dateiname der PDF Datei soll aus dem Inhalt der Zelle B2 von Tabelle 1 entstehen
Wer kann helfen
Gruß Werner
|