Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

als PDF Drucken ohne Tabellenblatt zu aktivieren

als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 15:03:41
Olaf Philipp
Hallo,

ich stehe gerade mal wieder vor einem Problem, welches ich nicht gelöst bekomme.
Ich versuche NUR mit Userformen zu arbeiten, sodass meine Kollegen nie die Exceldatei tatsächlich zu Gesicht bekommen. Zum Drucken habe ich bereits folgenden Code: 

Private Sub CommandButton3_Click()

Application.ScreenUpdating = False

 With Sheets("Urlaubsantrag")

 .Visible = True

  .PrintOut

 .Visible = False

 End With

Application.ScreenUpdating = True

Sheets("Urlaubsantrag").Range("B4:DX195").PrintOut

End Sub

Nun möchte ich natürlich auch die Gelegenheit geben, dass Sie sich diese Datei als "PDF" abspeichen können. Aus dem Tabellenblatt heraus ist das kein Problem, nur wie geht dies ohne "aktiven" Tabellenblatt wie beim Drucken?
Diese Vorgabe habe ich .... 
Sheets("Urlaubsantrag").Range("B4:DX195").ExportAsFixedFormat xlTypePDF, Filename:="C:\DB\Urlaub\" & Range("BN12").Value & ".pdf", OpenAfterPublish:=True

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 15:19:52
onur
"Diese Vorgabe habe ich .... " - dann nimm doch diesen Code.
als PDF Drucken ohne Tabellenblatt zu aktivieren
12.09.2023 02:45:26
Oberschlumpf
Hi Olaf,

versuch es so: 


Private Sub CommandButton4_Click()



Application.ScreenUpdating = False



 With Sheets("Urlaubsantrag")

 .Visible = True

  .PrintOut

.Range("B4:DX195").ExportAsFixedFormat xlTypePDF, Filename:="C:\DB\Urlaub\" & Range("BN12").Value & ".pdf", OpenAfterPublish:=True

  .Visible = False

 End With



Application.ScreenUpdating = True



End Sub


Dein bisheriger Code enthält 1x definitiv einen Fehler und 1x vielleicht einen weiteren Fehler

definitiv-Fehler (hat Onur auch nich gesehn^^)
.Visible muss True sein, wenn das Blatt, dass nicht das aktive sein muss, als PDF gespeichert werden soll

vielleicht-Fehler (Onur hat deinen Code nur theoretisch...also gar nicht getestet; sonst wär's ihm aufgefallen, dann hätte er dir das mitgeteilt)
dein "Dateiname.pdf" bildet sich einfach nur aus

Pfad & Range("BN12").Value & ".pdf"

der Code setzt so voraus, dass in dem Blatt, dass während Code-Ausführung angezeigt wird, in Zelle BN12 ein Eintrag enthalten sein muss!
auf Nummer sicher würd zumindest ich diesen Code... 
Range("BN12").Value

...ändern in... 
Sheets("BLATTNAME").Range("BN12").Value

...anstelle von BLATTNAME = der Blattname, in dem in Zelle BN12 der Dateiname für PDF-Datei steht.

Funktionierts? Sollte es eigtl, denn bei mir funktionierts.

Ciao
Thorsten
Anzeige
als PDF Drucken ohne Tabellenblatt zu aktivieren
12.09.2023 09:50:15
Olaf Philipp
Hallo Thorsten,
Danke für deine ausführliche Antwort und den umgestellten Code. Jetzt sehe ich meinen Fehler, ich hätte den ExportAsFixedFormat direkt unter den Printout setzen müssen. So ist das manchmal, wenn man zu lange am Rechner sitzt und den Wald vor lauter Bäumen nicht mehr sieht. Nochmals Danke für die Mühen.
Gruß Olaf
als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 15:25:11
Olaf Philipp
Leider druckt er mir das Tabellenblatt NUR aus. Ich möchte diese jedoch als PDF SPEICHERN.
AW: als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 15:28:14
onur
DU schriebst doch:
Diese Vorgabe habe ich .... 
Sheets("Urlaubsantrag").Range("B4:DX195").ExportAsFixedFormat xlTypePDF, Filename:="C:\DB\Urlaub\" & Range("BN12").Value & ".pdf", OpenAfterPublish:=True

ICH schrieb: "Dann nimm doch diese Vorgabe" (den unteren Code).
Anzeige
als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 15:32:38
Olaf Philipp
Ich habe Ihn genauso ersetzt, aber irgendwas fehlt. Er nimmt nur das Printout und druckt ohne zu speichern. 

Private Sub CommandButton4_Click()

Application.ScreenUpdating = False

 With Sheets("Urlaubsantrag")

 .Visible = True

  .PrintOut

  .Visible = False

 End With

Application.ScreenUpdating = True

Sheets("Urlaubsantrag").Range("B4:DX195").ExportAsFixedFormat xlTypePDF, Filename:="C:\DB\Urlaub\" & Range("BN12").Value & ".pdf", OpenAfterPublish:=True

 End Sub
AW: als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 15:35:20
onur
" Er nimmt nur das Printout" ??? Da ist doch gar KEIN Printout.
Anzeige
als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 15:39:51
Olaf Philipp
Leider ja, er druckt nur. Es kommt dann zusätzlich immer "Laufzeitfehler '5' Ungültiger Prozeduraufruf oder ungültiges Argument" mit Verweis auf die letzte Zeile
als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 15:52:06
Olaf Philipp
Hallo Onur,

ich habe DEINEN Beitrag daraus schon gelesen. Bei diesen geht es darum aus einem AKTIVEN Sheet (aus einem Makro heraus) zu drucken, speichern etc.
Ich möchte das Ganze ohne aktiven Sheet, daher die Prozedur mit 

Application.ScreenUpdating = False

 With Sheets("Urlaubsantrag")

 .Visible = True

  .PrintOut

 .Visible = False

 End With

Application.ScreenUpdating = True
Anzeige
AW: als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 16:13:55
onur
Gelesen vielleicht, aber offenbar höchstens nur überflogen und nicht kapiert !
Wenn es um das AKTIVE Blatt ginge, würde da am Anfang ActiveSheet stehen.
Wenn aber da am Anfang steht Sheets("Urlaubsantrag"), dann gilt alles was kommt, explizit für DIESES BENANNTE Blatt, egal welches Blatt aktiv ist oder nicht.
als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 16:20:11
Olaf Philipp
Ok, leider hilft hier alles nichts. Es funktioniert leider immer noch nicht.....
AW: als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 16:28:29
onur
Dann poste mal die Datei.
als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 16:35:58
Olaf Philipp
Sorry, diese ist leider zuuuuuu groß und unübersichtlich.....
Aus diesem Code zum Drucken eines Bereiches eines Tabellenblattes 
Private Sub CommandButton3_Click()

Application.ScreenUpdating = False

 With Sheets("Urlaubsantrag")

 .Visible = True

  .PrintOut

 .Visible = False

 End With

Application.ScreenUpdating = True

Sheets("Urlaubsantrag").Range("B4:DX195").PrintOut

End Sub


Soll wenn möglich direkt integriert oder auch einzeln per neuem CommandButton als .pdf gespeichert werden.
Dankeschön

PS.: auch ohne der letzten Zeile 
Sheets("Urlaubsantrag").Range("B4:DX195").PrintOut

funktioniert der Ausdruck
Gruß Olaf
Anzeige
AW: als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 16:38:12
onur
Wenn du es IDIOTENSICHER haben willst, musst du schon was posten, da du ja nicht in der Lage bist, schriftliche Hilfe umzusetzen.
als PDF Drucken ohne Tabellenblatt zu aktivieren
11.09.2023 16:41:27
Olaf Philipp
Hallo Onur,
Danke für Deinen Beitrag!

304 Forumthreads zu ähnlichen Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
Anzeige
Nur bestimmten Bereich Drucken
Willy

Hallo Leute
Habe eine Tabelle A1-D60 mit Rahmen und Zwischenlinien, ab der 4. Zeile sind die Spalten miteinander verbunden.
Es soll nur der Bereich gedruckt werden, wo was drin steht, einzelne leer Zeilen sollen ignoriert (leer gedruckt) werden und am Ende sollen zwei leer Zeilen mit ge...
14.02.2009 12:21:00
Thread-ID: 1050686
4 Beiträge
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
Anzeige
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
PDF ausdrucken- Ergebnis NICHT anzeigen
Björn

Hallo Leute,
eigentlich ist mein Problem kein richtiges Excel-Problem sondern eher ein AdobeAcrobat-Problem.
Ich habe ein Makro erstellt mit dem diverse PDF (über drucken als PDF) erzeugt werden. Das Problem ist, daß bei jedem Ausdruck auch das Ergebnis angezeigt wird (also die erstellt...
05.03.2010 23:07:25
Thread-ID: 1143830
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton Frame UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
2
13
1
1
4
2
5
3
1
5
2
2
6
1
7
2
1
5
8
2
3
1