Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1176to1180
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
Inhaltsverzeichnis

Drucker Einrichten

Drucker Einrichten
Ulf
Hallo Ihr Excel-Profis,
um mein UserForm zu drucken nutze ich
Form_name.PrintForm
vorher zeige ich den aktiven Drucker an mit
Application.ActivePrinter
soll dieser geändert werden wollte ich das mit
Application.Dialogs(xlDialogPrint).Show
und das ist sicher falsch.
Der Druckdialog wird angezeigt, und bei Vorschau stürzt Excel ab.
Gibt es soetwas wie "Application.Dialogs(xlDRUCKER_EINRICHTEN).Show" ?
Danke Ulf

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

Betreff
Benutzer
Anzeige
API-Einsatz
24.09.2010 16:13:17
ransi
HAllo
Versuch mal so:
Application.Dialogs(xlDialogPrinterSetup).Show

Um eine Userform und die Druckervorschau gleichzeitig anzeigen zulassen muss API ran.
ICh habe mal Code von NEpumuk gesehen der das konnte.
GetWindow()
SetWindowLong()
ransi
AW: API-Einsatz
24.09.2010 18:12:20
Ulf
Danke ransi,
was ich mit xlDialogPrinterSetup auch für einen Drucker wähle,
der eingestellete Drucker bleit beim Drucken dann immer der Selbe.
Ulf
Anzeige
kannst mal so versuchen,
26.09.2010 12:20:35
Tino
Hallo,
es wird der Win Standarddrucker umgestellt und danach wieder zurück.
Private Sub CommandButton1_Click()
Dim sAktPrinter As String

sAktPrinter = ActivePrinter
If Application.Dialogs(xlDialogPrinterSetup).Show Then
    If Standard_Drucker(ActivePrinter) Then
        Me.PrintForm
        Standard_Drucker sAktPrinter
        ActivePrinter = sAktPrinter
    End If
End If

End Sub

Function Standard_Drucker(ByVal sPrinterName As String) As Boolean
Dim objWSHNetwork As Object

On Error GoTo ErrorH:

Set objWSHNetwork = CreateObject("WScript.Network")
sPrinterName = Left$(sPrinterName, InStr(sPrinterName, " auf") - 1)

objWSHNetwork.SetDefaultPrinter sPrinterName
Standard_Drucker = True

ErrorH:
Set objWSHNetwork = Nothing
End Function
Gruß Tino
Anzeige
AW: kannst mal so versuchen,
Ulf
Danke Tino
tolle Sache, funktioniert
Hast du villeicht noch ne Lösung für
Application.Dialogs(xlDialogPrint).Show
Me.PrintForm,
denn da ignoriert er die Druchereinstellungen.
Ulf
AW: kannst mal so versuchen,
27.09.2010 10:56:43
Tino
Hallo,
nein habe ich nicht, ich denke dieser Dialog ist auch für Excel gedacht und nicht für die Userform.
Eventuell müsste man sich einen eigenen Dialog zusammenbasteln.
Gruß Tino

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige