Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Drucker festlegen und Dateiname auslesen



Excel-Version: 10.0 (Office XP)

Betrifft: Drucker festlegen und Dateiname auslesen
von: TL
Geschrieben am: 12.06.2002 - 11:23:12

Hi Wissende!

Bitte helft mir bei folgenden Problem(chen)!

1) Ich stelle per Makro eine Aufstellung zusammen die anschließend ausgedruckt wird.
PROBLEM dabei ist, daß ein SW-Drucker und ein Farbdrucker an dem Arbeitsplatz stehen. Ich möchte nun dem Anwender die Möglichkeit geben vor dem Drucken einen Drucker auszuwählen. Wie kann man das realisieren?!

2) Beim Übertragen der Daten an den Drucker erscheint ein Fenster mit einem Abbruchknopf (scheint von Windows oder Excel zu sein).
PROBLEM hier, wenn der Nutzer auf Abbruch klickt stürtzt mein Makro ab. Wie kann ich dieses Fenster ausblenden bzw. den Code für den Abbruchknopf bearbeiten?!

3) Wie kann man den Namen und evtl. den Pfad der aktuellen Mappe auslesen?!

Danke für die Hilfe.

Gruß,
Thomas


  

Zu 3.: =ZELLE("DATEINAME") o.T.
von: Kl@us-M.
Geschrieben am: 12.06.2002 - 11:33:28

:-)
  

als VBA-Code?
von: TL
Geschrieben am: 12.06.2002 - 12:50:54

Schön.
Aber wie lautet der VBA-Code für diesen Befehl?

Gruß,
Thomas


  

ActiveCell.FormulaR1C1 = "=CELL(""Dateiname"")"
von: Kl@us-M.
Geschrieben am: 12.06.2002 - 14:46:00

Hallo TL,
versuch´s mit

ActiveCell.FormulaR1C1 = "=CELL(""Dateiname"")"

Gruss
Klaus-Martin


  

zu 1: Drucker festlegen und Dateiname auslesen
von: josef
Geschrieben am: 13.06.2002 - 00:13:27

ich weiß nicht, ob das die eleganteste lösung ist. bei mir funktioniert es.


Public Sub aktiven_drucker_auslesen()

MsgBox Application.ActivePrinter

' zeigt den aktiven drucker der geöffneten datei

End Sub

Public Sub alle_drucker_auslesen()

Application.Dialogs(xlDialogPrinterSetup).Show

' nach bedarf einen drucker auswählen, doppelclick ausführen,
' dann ist der angewählte drucker der aktive drucker für die geöffnete datei!

End Sub


  

zu 3.:
von: WernerB.
Geschrieben am: 13.06.2002 - 08:43:51

Hallo Thomas,

ist Dir mit diesem Code geholfen (ggf. 'ThisWorkbook' durch 'ActiveWorkbook' ersetzen!) ?


Option Explicit
Sub Testen()
Dim MaNa As String, Pfad As String, VoNa As String
    MaNa = ThisWorkbook.Name
    Pfad = ThisWorkbook.Path
    VoNa = ThisWorkbook.FullName
    MsgBox "Mappe: " & MaNa & Chr(10) & _
           "Pfad: " & Pfad & Chr(10) & _
           "Pfad mit Name: " & VoNa, _
           vbExclamation, "Hinweis für " & Application.UserName & ":"
End Sub

Viel Erfolg wünscht
WernerB.

  

Vielen Dank werde den Code heute testen!
von: TL
Geschrieben am: 13.06.2002 - 11:07:24

-

 

Beiträge aus den Excel-Beispielen zum Thema "Drucker festlegen und Dateiname auslesen"