vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: Drucker-Spooler 5 mal Gleicher Druck wird als eine Seite angezeigt ??? 
Autor: BAStler
Datum: 08.03.07 13:52

Hallo Kheinz,

Die Spooler-Queue ist ein Objekt und wird in der Prozedur Private Sub DisplaySpooler() ausgelesen. Dazu wird mit OpenPrinter geöffnet, mit EnumJobs ausgelesen und anschließend mit ClosePrinter wieder geschlossen. Bei Erfolg (also Druckjob vorhanden) liefert EnumJobs einen Wert in Entries zurück.
Danach kannst du je Druckjob mit Buffer(c * x + 10) die Anzahl der TotalPages auslesen (siehe unten)
            'Erzählt uns wieviel Seiten es ingesamt sind
            Job(x).TotalPages = Buffer(c * x + 10)
Falls der Wert größer 1 ist, wird der Job wiederholt.
Um das abzufangen, müßtest du das Objekt wieder mit OpenPrinter öffnen, mit EnumJobs das Job_Info_1 an der Stelle (TotalPages) um 1 reduzieren und mit AddJob den selben Job mit TotalPages = 1 neu in die Queue eintragen und anschließend mit ClosePrinter wieder schließen. Dazu schickst du ihn am Besten in eine Funktion oder Prozedur, der du mitteilst, wie oft?

Viel Erfolg
BAStler
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Drucker-Spooler 5 mal Gleicher Druck wird als eine Seite ang...962kheinzz06.03.07 19:47
Re: Drucker-Spooler 5 mal Gleicher Druck wird als eine Seite...588BAStler07.03.07 10:35
Re: Drucker-Spooler 5 mal Gleicher Druck wird als eine Seite...585kheinzz08.03.07 12:18
Re: Drucker-Spooler 5 mal Gleicher Druck wird als eine Seite...616BAStler08.03.07 13:52
Re: Drucker-Spooler 5 mal Gleicher Druck wird als eine Seite...569kheinzz09.03.07 19:43
Re: Drucker-Spooler 5 mal Gleicher Druck wird als eine Seite...572BAStler12.03.07 19:14
Versprochen ist versprochen....578kheinzz15.03.07 21:13
Für die Lösung dieses Problem' s verpreche ich 25.- Euro588kheinzz12.03.07 17:02

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-2025 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