Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel - Druck von mehreren Dateien nacheinander und Änderung des Seitenformats

Frage Microsoft Microsoft Office

Mitglied: DeeJayBee

DeeJayBee (Level 1) - Jetzt verbinden

27.12.2012 um 14:15 Uhr, 3774 Aufrufe, 2 Kommentare

Hallo zusammen,

ich habe folgendes Problem:
Ich möchte einen Ordner voll mit Excel-Dateien als PDF drucken.

Eigentlich kein Problem, Datei öffnen, drucken, fertig.
Dem PDF-Drucker kann ich auch angeben, wo und mit welcher Bezeichnung das Dokument am Ende abgelegt werden soll.

Die Dateien sind in einem anderen Format als A4 angelegt, daher muss die Datei auch noch im Format bearbeitet werden. (Datei - Seite einrichten - Papierformat A4)
Manuell kein Problem.

Zum anderen sollen nicht alle Tabellenblätter gedruckt werden. Bzw, nur bestimmte (die Namen sind immer fest vorgegeben).

Und diese Schritte für mehrere Dateien nacheinander.
(Vielleicht noch interessant: Wir haben Excel 2003)


Da ich das nicht alles manuell machen möchte, brauche ich Eure Hilfe.
Habt Ihr nen Tipp für mich, wie man das mit nem Script lösen kann?
Mitglied: Onitnarat
27.12.2012 um 14:30 Uhr
Hi,
spontan fällt mir nur Auto IT ein...damit kenne ich mich allerdings nicht sonderlich aus
Link: http://www.autoitscript.com/site/
Aber es soll ja Leute geben, die hier wahre Künstler sind. Ich persönlich halte mich da lieber an Powershell und VBS fest, aber auch hier fällt mir nichts ein, was das Papierformat ändert könnte.


Gruß
Marcus
Bitte warten ..
Mitglied: DeeJayBee
07.01.2013 um 15:11 Uhr
Hallo zusammen,

Habe eine Lösung für mein Problem selbst zurecht basteln können und möchte Euch dies nicht vorenthalten:

Die Lösung funktioniert als Makro in Excel und bearbeitet den kompletten angegebenen Ordner.
Habe meinen Standarddrucker (FreePDF mit PDFtK) eingestellt, dass die "gedruckten" Dokumente alle in einem anderen festen Verzeichnis landen, daher reicht mir hier ein einfaches PrintOut.
Da meine Vorgabe war, dass nur Tabellenblätter mit bestimmtem Namen gedruckt werden sollen, reichte mir ein like "page*". Läßt sich aber recht leicht beliebig ändern.


Sub alle_bearbeiten()
Dim wb As Workbook
Dim strmyDat As String, myPath As String
Dim wksX As Worksheet

myPath = "C:\temp\" 'Hier Dateienpfad eintrage
ChDrive Left(myPath, 2)
ChDir myPath

strmyDat = Dir(myPath & "*.xls") 'alle xls - files
Do While strmyDat <> ""
Set wb = Workbooks.Open(myPath & strmyDat)
For Each wksX In wb.Worksheets
If LCase(wksX.Name) Like "page*" Then
ActiveSheet.PageSetup.PaperSize = xlPaperA4
'oder was sonst noch mit den Tabellen passieren soll.
wksX.PrintOut
End If
Next wksX
wb.Close False
strmyDat = Dir
Loop
End Sub


Das ist die verkürzte Variante, nur um die Funkltionsweise aufzuzeigen.

Schöne Grüße und viel Spass damit!
Bitte warten ..
Ähnliche Inhalte
Drucker und Scanner
Drucker: Mehrere Schächte nacheinander automatisiert ansteuern
gelöst Frage von JanNieDrucker und Scanner15 Kommentare

Hallo Zusammen, Ich soll Belege, wie z.B. Rechnungen in 4-facher Ausführung Drucken, jede Version soll auf einem anderen Papier ...

Microsoft Office
Von Excel auf Netzwerklaufwerk gespeicherterte Änderungen an Dateien, von anderen Clients aus nicht sichbar
Frage von diwaffmMicrosoft Office2 Kommentare

Hi Leute, ich habe hier einen SBS 2007, auf dessen Share u.a. Office-Dokumente liegen. Das share ist am Client ...

Microsoft Office
VBA Excel Mehrere Dateien auslesen
Frage von abuelitoMicrosoft Office7 Kommentare

Hallo an Alle, ich habe folgendes Problem: Ich habe einen Ordner, in diesem befinden sich mehrere xls-Dateien (ca. 2.000) ...

Microsoft Office
Excel Bezüge zu mehreren externen Dateien
Frage von DerGueMicrosoft Office

Schönen guten Tag, ich suche die Lösung zu folgendem Problem: Ich würde gerne in einer Zielarbeitsmappe, welche für jeden ...

Neue Wissensbeiträge
Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 8 StundenWindows 102 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 10 StundenSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 1 TagViren und Trojaner3 Kommentare

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 1 TagRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Netzwerkgrundlagen
Hi eine blöde frage. xD
Frage von 132954Netzwerkgrundlagen12 Kommentare

Also: Habe 2012 r2 essentials neuinstalliert, allerdings installiert diese version ja gleich diesen gangen AD kram mit, den hab ...