Thema Datum  Von Nutzer Rating
Antwort
11.08.2021 09:47:42 Andrin
NotSolved
11.08.2021 15:28:38 Gast96797
NotSolved
12.08.2021 08:52:13 Gast6062
NotSolved
Blau Excel ändert selbständig den drucker :/
 12.08.2021 13:31:37 Gast81503
NotSolved

Ansicht des Beitrags:
Von:
Gast81503		 Datum:
12.08.2021 13:31:37		 Views:
603		 Rating:
     
Antwort:
  Ja
Thema:
Excel ändert selbständig den drucker :/

Ou weia.

Ich würde vorschlagen, erstmal nur das Druck zu betrachten und zu testen.

Option Explicit

Public Sub Test()
  
  Dim strPrinter As String
  Dim strPrinterPrev As String
  
  'den aktuell eingestellten Drucker merken
  strPrinterPrev = Application.ActivePrinter
  
  'anderen Drucker auswählen
  'oder Vorgang abbrechen lassen
  Select Case MsgBox(Title:="Drucken", _
                     Buttons:=vbQuestion + vbYesNoCancel + vbDefaultButton3, _
                     Prompt:="Ihr aktiver Drucker ist:" & vbNewLine & "  '" & strPrinterPrev & "'" & vbNewLine & vbNewLine & _
                             "Möchten Sie die Druckaufträge mit diesem Drucker ausführen?" & vbNewLine & _
                             "(Nein ... Drucker auswählen)")
    Case vbYes
      strPrinter = strPrinterPrev
      
    Case vbNo
      If Application.Dialogs(xlDialogPrinterSetup).Show Then
        strPrinter = Application.ActivePrinter
      Else
        Exit Sub
      End If
    
    Case vbCancel
      Exit Sub
      
  End Select
  
  With Worksheets("Tabelle1")
    For i = 1 To 3
      'Beispiel für A1:A100, B1:B100 und C1:C100
      .Range(.Cells(1, i), .Cells(100, i)).PrintOut ' ActivePrinter:=strPrinter ', PrintToFile:=True
    Next
  End With
  
  
  If strPrinter <> strPrinterPrev Then
    'den zuvor eingestellten Drucker wiederherstellen
    '(könnte auch schon weiter oben getan werden)
    Application.ActivePrinter = strPrinterPrev
  End If
  
End Sub

Was ist var1 und var 2 (Von, Bis) bei dir - Datum, Zahlen, Zeilen-/Spalten-Index?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.08.2021 09:47:42 Andrin
NotSolved
11.08.2021 15:28:38 Gast96797
NotSolved
12.08.2021 08:52:13 Gast6062
NotSolved
Blau Excel ändert selbständig den drucker :/
 12.08.2021 13:31:37 Gast81503
NotSolved