Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
188to192
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
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken in Datei

Drucken in Datei
05.12.2002 09:54:37
Matthias
Hallöchen ...

Gibt es eine Möglichkeit das Dialogfeld zu ändern wenn man in eine Datei ausdrucken möchte?
Es kommt ja immer nur ein Fenster wo man dann den ganzen Pfad eingeben muß.
Ich kann zwar deen default Path ändern, aber dann habe ich ja wieder ein anderes Problem.
Gibt es eine Möglichkeit einen zweiten Pfad zum Drucken einzustellen oder ein Fenster auftzumachen wie in den anderen Office anwendungen?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Drucken in Datei
05.12.2002 10:49:37
Nepumuk
Hallo Matthias,
dieser Code öffnet ein kleines Explorerfenster und liefert den gewählten Pfad zurück.

Option Explicit
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As InfoT) As Long
Private Declare Function CoTaskMemFree Lib "ole32" (ByVal hMem As Long) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpStr1 As String, ByVal lpStr2 As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pList As Long, ByVal lpBuffer As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Private Type InfoT
hwnd As Long
Root As Long
DisplayName As Long
Title As Long
Flags As Long
FName As Long
lParam As Long
Image As Long
End Type
Private Function GetAOrdner() As String
Dim xl As InfoT, IDList As Long, RVal As Long, PrgName As String
With xl
.hwnd = FindWindow("", "Auswahl")
.Title = lstrcat("Bitte wählen Sie ein Verzeichnis", "")
.Flags = 1
End With
IDList = SHBrowseForFolder(xl)
If IDList <> 0 Then
PrgName = Space(256)
RVal = SHGetPathFromIDList(IDList, PrgName)
CoTaskMemFree (IDList)
PrgName = LTrim(RTrim(PrgName))
End If
GetAOrdner = Left(PrgName, Len(PrgName) - 1) & "\"
End Function

Gruß
Nepumuk

Anzeige
Re: Drucken in Datei
05.12.2002 10:59:42
Matthias
Das ist Super ... wenn ich das Modul aufrufe kommt ein Fenster wo ich das Verzeichnis aufrufen kann.
Wenn ich über File -> Print gehe kommt das Fenster nicht.
Hab ich etwas falsch gemacht? Habe es als Modul eingebunden ...
Re: Drucken in Datei
05.12.2002 11:11:53
Nepumuk
Hallo Matthias,
schreib ein eigenes Druckmenü z.B. in Verbindung mit einer benutzerdefinierten Symbolleiste. Da kannst du den Explorer einbinden. Das Standartdruckmenü kannst du ja deaktivieren.
Gruß
Nepumuk
Re: Drucken in Datei
05.12.2002 11:33:11
Matthias
Ich habe noch nie so etwas komplexes gemacht. Ist keine Vorwurf, aber wenn Du mir nicht helfen kannst ist es nicht so schlimm. :-(
Re: Drucken in Datei
05.12.2002 11:40:37
Nepumuk
Hallo Matthias,
ich helfe dir gern, darum bin ich ja im Forum. Muss aber jetzt zum Frisör und dann in die Arbeit. Das ganze ist auch kein grosser Aufwand, da ich das aus vorhandenen Standartprogrammen zusammensetze. Schreib mir eine E-Mail mit einer möglichts genauen Beschreibung dessen, was du erreichen willst.
Gruß
Nepumuk
Anzeige

183 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
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
PDF aus Intranet drucken
{Boris}

Hi Leute,
ich möchte aus Excel heraus PDF-Files drucken, die sich in unserem Intranet befinden.
Bisher kann ich sie mittels Hyperlink öffnen - muss dann aber noch manuell den Druck starten. Das möchte ich gerne vermeiden, zumal ich gerne mehrere Files ausdrucken möchte.
Ein klassisc...
05.01.2009 18:47:34
Thread-ID: 1037077
13 Beiträge
Anzeige
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
Alle pdf aus einem Ordner drúcken
Gerhard

Hallo zusammen,
ich habe mir folgendes Makro aus dem Forum genommen: Sub PrintPDF() Dim sPath$, i% sPath = "C:\Documents and Settings\gglatz\Desktop\NEWFOLDER\" With Application.FileSearch .NewSearch .LookIn = sPath .Filename = "*.*" .Execute Range("B2").Value = .FoundFiles.Count .NewSearch...
13.07.2009 12:51:43
Thread-ID: 1088158
4 Beiträge
pdf Dateien in einem Ordner drucken
Gerhard

Hallo zusammen,
ich habe folgendes Makro um alle pdf Dateien in einem Ordner zu drucken.
Der Druck und alles funktioniert wunderbar. Ich möchte jedoch, dass der Druck in auf- bzw. absteigender Reihenfolge passiert. Die pdf Dateien haben Namen wie
2100005897.pdf
2100005898.pdf
13.07.2009 15:58:37
Thread-ID: 1088238
4 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
PDF aus Exceldatei drucken
Beni

Hallo miteinander
Ich möchte mehrere PDF Dateien (ohne diese zu öffnen) per Command Button anhand der Pfadangabe in der Tabelle ausdrucken.
A1 = C:\Test\x.pdf
A2 = C:\Test\y.pdf
A3 = C:\Test\z.pdf
etc.
leider finde ich den Weg nicht alleine
Vielen Dank und ein schöne...
04.09.2009 14:19:10
Thread-ID: 1100634
7 Beiträge

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
1
2
12
13
2
3
3
13
6
1
1
4
2
5
1
3
4
1
5
8
6
4
10
2