Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Tab beim Datei Speichern
Autor: Steven Scheidler (---.dyn.telefonica.de)
Datum:   05.01.20 13:34

Also bin hier nochmal fündig geworden, das funktioniert super!
 '############### ##########
 'Drucker auflisten
 'Andreas Miethe * Juni 2003
 '##########################
 DEF EnumPrinters(7) ! "WINSPOOL.DRV","EnumPrintersA"
 DEF GetStandardPrinter(0) Substr$(ReadIni$("WIN.INI","Windows","Device"),1,",")
 DEF &PRINTER_ENUM_LOCAL 2
 DEF &PRINTER_ENUM_DEFAULT 1
 Declare PrinterValues#, Drucker$[], Y&, Old_Standard$, Old_Standard_rest$
 DEF GetStandardPrinter2(0) ReadIni$("WIN.INI","Windows","Device")
 
 Proc EnumPrinters
 
     Declare Printername&,Portname&,PrinterName$,PortName$,Attribs&
     Declare X&,dwNeeded&,dwReturned&
     EnumPrinters(&PRINTER_ENUM_LOCAL,0,5,0,0,ADDR(dwNeeded&),ADDR(dwReturned&))
     Dim PrinterValues#,dwNeeded&
     Clear PrinterValues#
     EnumPrinters(&PRINTER_ENUM_LOCAL ,0, 5, PrinterValues#, dwNeeded&, ADDR(dwNeeded&), ADDR(dwReturned&))
 
     While X& < dwReturned&*20
 
         Printername& = Long(PrinterValues#,x&)
         PrinterName$ = String$(Printername&,0)
         Attribs& = Long(PrinterValues#,x&+8)
         'folgendes funzt bei mir unter XP nicht:
         '	     If Attribs& & $4
         '            Printername$ = Printername$ + " => Standarddrucker"
         '       endif
         Drucker$[Y&] = Printername$
         X& = X& + 20
         inc Y&
 
     EndWhile
 
     Dispose PrinterValues#
 
 EndProc
 
 Proc Set_Std_Printer
 
     Parameters PrinterString$
     WriteIni "WIN.INI","Windows","Device"=PrinterString$
 
 EndProc
 
 cls
 EnumPrinters
 Print "Gefundene Drucker"
 
 WhileLoop 0,Y&-1
 
     Print "Drucker " + @str$(&loop) + " : " + Drucker$[&loop]
 
 EndWhile
 
 Old_Standard$ = Substr$(GetStandardPrinter2(),1,",")
 Old_Standard_rest$ = Substr$(GetStandardPrinter2(),-2,",") + "," + Substr$(GetStandardPrinter2(),-1,",")
 'Print "***"
 'Print "Standard-Drucker :"
 'Print Old_Standard$
 'Print "***"
 'Print "Drucke auf Drucker " + Drucker$[1]
 
 'Set_Std_Printer Drucker$[1] + "," +Old_Standard_rest$
 'StartPrint + Drucker$[1]
 'DrawText 10,10,"Test " '+ Drucker$[1]
 'EndPrint
 'Print "Drucke auf Drucker " + Drucker$[2]
 
 'Set_Std_Printer Drucker$[2]+","+Old_Standard_rest$
 'StartPrint
 'DrawText 10,10,"Test " + Drucker$[2]
 'EndPrint
 'Print "***"
 'Print "   >>>alten Standart-Drucker wieder einstellen.."
 
 'Set_Std_Printer Old_Standard$+","+Old_Standard_rest$
 'Print "Standard : " + Old_Standard$
 'Print "***"
 'Print ""
 'Print "...warte"
 waitinput
 end
 


 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Tab beim Datei Speichern  Neu
Steven Scheidler 19.12.19 08:15 
 Re: Tab beim Datei Speichern  Neu
Heinz Brill 19.12.19 18:54 
 Re: Tab beim Datei Speichern  Neu
Steven Scheidler 21.12.19 19:37 
 Re: Tab beim Datei Speichern  Neu
a. hurler 05.01.20 07:42 
 Re: Tab beim Datei Speichern  Neu
Steven Scheidler 05.01.20 13:34 
 Re: Tab beim Datei Speichern  Neu
Heinz Brill 22.12.19 08:47 
 Re: Tab beim Datei Speichern  Neu
Heinz Brill 05.01.20 12:11 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org