vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
ShowPrinter 
Autor: schnullerking
Datum: 28.11.14 11:43
Hallo

Ich drucken Sachen aus mit dem CommonDialog. 

    Local Error Resume Next
    CommonDialog1.CancelError = True
    CommonDialog1.ShowPrinter
 
    If Err = 0 Then
    ......
Der Standard Drucker ist auf dem PC mit "Büro" vor eingestellt.

Jetzt wenn ich drucke kommt ja die Auswahl den Drucker zu wählen.
Wenn ich jetzt den Drucker "PDF" (nicht den Standard Drucker) auswähle,
wird es auf dem PDF gedruckt wie ausgewählt alles richtig soweit.
Jetzt wenn man wieder drucken möchte ist der Standard Drucker nicht mehr der "Büro" sondern der "PDF" Drucker.

Bei der Auswahl des Druckers wird immer der ausgewählte gleich als Standard definiert.

Wie kann ich dies umgehen das dies nicht so ist?

Danke Euch
Grüssli Dany
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: ShowPrinter 
Autor: Franki
Datum: 29.11.14 07:52
Hallo Dany,

dein Code ist etwas unvollständig, entscheidend wäre wie es nach deinem .... weiter geht.

Ich vermute mal, dass bei dir der ausgewählte Drucker als neuer Standarddrucker gesetzt wird und du dir den vorherigen nicht merkst bzw. wieder zurück setzt.

Siehe z.B.: http://www.vbarchiv.net/tipps/tipp_154-auswahl-des-aktiven-druckers.html

Gruß
Frank
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: ShowPrinter 
Autor: Heinz_
Datum: 29.11.14 20:37
Falls Du in VBA programmierst, gibt es kein Drucker-Objekt (Printers).
Hier ein Beispiel aus Excel-VBA das ohne das Drucker-Objekt auskommt. 

'Variablen
   Public m_akt_altdrucker As String   'Durcker-Name vor dem Prg.-Aufruf
 
 
'Durcker-Name merken, um diesen später wieder einzustellen
   m_akt_altdrucker = Application.ActivePrinter
   On Error GoTo fehlermeldung_Drucker
   'Dein Programm zum Drucken    . . . . . . .
 
'Drucker zurückstellen auf den vorher gemerkten Durcker-Namen
   If Len(m_akt_altdrucker) > 0 Then
      Application.ActivePrinter = m_akt_altdrucker
   End If
 
 
 
'Fehlerausgabe
fehlermeldung_Drucker:
   On Error GoTo 0
   'Dein Programm bei Fehler zum Drucken    . . . . . . .
 
'Drucker zurückstellen bei Fehler
   If Len(m_akt_altdrucker) > 0 Then
       Application.ActivePrinter = m_akt_altdrucker
   End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Gruß aus Mittelfranken
Heinz

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel