Mit Makros Excel drucken

Computer: Software & Programmierung Office Software
1

Hi

Ich würde gerne per Makro ein anderes Excel-Dokument, einen bestimmte Tabelle drucken ohne das Dokument zu öffnen.
Ich möchte aber keinen absoluten Pfad angeben, sodass ich praktisch auf jedem Rechner das Makro ausführen kann.
Ist das einigermassen verständlich?
Wie muss das Makro dann aussehen???
Vielen dank und Grüsse
Francis

Hier mein Makro:
Sub druck_stunden()
  Workbooks.Open Filename:=„C:\Users\Francis\Documents\excel\stundenrapport.xlsm“
  Sheets(Array(„Jahresübersicht“)).PrintOut Copies:=1, Collate:=True
  Workbooks(„stundenrapport.xlsm“).Close
End Sub

2

Hallo Francis,

Ich würde gerne per Makro ein anderes Excel-Dokument, einen
bestimmte Tabelle drucken ohne das Dokument zu öffnen.
Ich möchte aber keinen absoluten Pfad angeben, sodass ich
praktisch auf jedem Rechner das Makro ausführen kann.
Ist das einigermassen verständlich?

verständlich ja aber es fehlen noch Informationen. Ist die Rapportmappe irgendwo auf dem Fremd-PC, d.h. das makro muß den ganzen PC durchsuchen? Alle Laufwerke?

Oder steht die Rapportmappe im gleichen Ordner wie die Mappe mit dem Makro? Oder, oder, …?

Filename:="C:\Users\Francis\Documents\excel\stundenrapport.xlsm

Gruß
Reinhard

3

Hi Reinhard

Vielen Dank für Deine Antwort.
Die Rapportmappe steht im gleichen Ordner wie die Mappe mit dem Makro.

Gruss
Francis

4

Die Rapportmappe steht im gleichen Ordner wie die Mappe mit
dem Makro.

Hallo Francis,

Option Explicit

Sub druck_stunden()
Workbooks.Open Filename:=ThisWorkbook.Path & „\stundenrapport.xlsm“
Sheets(„Jahresübersicht“).PrintOut Copies:=1, Collate:=True
Workbooks(„stundenrapport.xlsm“).Close
End Sub

Gruß
Reinhard