Druckbereich aus mehreren Tabellen
17.12.2002 15:47:10
Holger Meinert
Ich möchte aus mehreren Tabellenblättern einen Druckbereich zusammenfassen.Siehe ActiveSheet! hier möchte ich einen Druckbereich aus Tabelle2 hinzufügen.
Der gesamte Druckbereich wird in diesem Makro als PDF-Datei abgespeichert.
Vielen Dank für die Hilfe!!
Teil meines Makros:
pfad = Range("AZ3").Value ' hier wird der Speicherort festgelegt
ChDir Range("AZ3")
Set pdfDist = New PdfDistiller
ActiveSheet.PageSetup.PrintArea = "$AN$8:$AW$65"
strFile_ps = pfad & "\" & dName & ".ps"
strFile_ps = pfad & "\" & dName & ".ps" & "{Enter}"
strFile_pdf = pfad & "\" & Worksheets("ENBI").Range("AZ2").Value & ".pdf"
Application.StatusBar = strFile_pdf & " wird erstellt...bitte warten!"
ChDir Range("A