(928)  S'inscrire

Français
Forum

Druckerauswahl sans Dialog

 

Schrotti
Herbert
allô alle miteinander,
Hab la fois une Frage trop Druckerauswahl et zwar ist es possible direct aus Xprofan une Windowsdrucker sans Dialog auszuwählen ( ausser den Standartdrucker) ?

mon Problem ist le moi einmal une Etikettendrucker et einmal den Pdf Creator verwende et cela aus qui gleichen Anwendung.

jusqu'à maintenant J'ai eu une Posdrucker, welchen je avec den Imprimer# Befehlen füttere.
qui "neue" Drucker (zèbre Stripe 300) reagiert pas plus sur qui Befehle, denke qui versteht qui Esc Sequenzen nimmer.
Hab mir gedacht löse cela Problem simple avec Sartprint .....Endprint usw.

seulement plan d'abord cela Etikett sur dem zèbre ensuite une liste sur einem Netzwerkdrucker.

Hat peut-être quelqu'un une concept?

s'il te plaît pas zuviel Fachchinesisch là je doch encore pas allzuviel Ahnung habe.
 
10.01.2011  ▲
 




Thomas
Freier
avec den ici vorhanden Beispielen, serait je simple den Standarddrucker ermitteln, si il pas qui zèbre ist, cette comme Standarddrucker mettons, drucken, et den alten Standarddrucker wieder comme solchen einstellen. Gibt bestimmt bessere Lösungen.
 
Gruß Thomas
Windows XP SP2, XProfan X2
10.01.2011  ▲
 




Schrotti
Herbert
allô Thomas
Erstmal merci pour qui Antwort.
oui qui concept c'est moi aussi déjà gekommen allerdings suis je encore pas draufgekommen comment je cela mach.Den Standartdrucker feststellen pour hab je quelques Beispiele trouvé.
Zum ajuster mais rien, ou bien suis je blind avant zèle......

belle Grüsse aus dem Alpenland / Herbert

Achja nebenher habe Winxp et Xprofan9
 
10.01.2011  ▲
 



exposition la fois Ermittlung (  [...]  ) :
KompilierenMarqueSéparation
DEF GetStandardPrinter(0) Substr$(ReadIni$("WIN.INI","Windows","Device"),1,»)
- alors pourrait equivalentes WriteIni marcher.
 
10.01.2011  ▲
 




E.T.
Hab la fois un peu "gebastelt":
KompilierenMarqueSéparation
'############### ##########
'Drucker auflisten
'Andreas Miethe * juin 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
Déclarer PrinterValues#, Drucker$[], Y&, Old_Standard$, Old_Standard_rest$
DEF GetStandardPrinter2(0) ReadIni$("WIN.INI","Windows","Device")

Proc EnumPrinters

    Déclarer Printername&,Portname&,PrinterName$,PortName$,Attribs&
    Déclarer X&,dwNeeded&,dwReturned&
    EnumPrinters(&PRINTER_ENUM_LOCAL,0,5,0,0,ADDR(dwNeeded&),ADDR(dwReturned&))
    Faible PrinterValues#,dwNeeded&
    Claire PrinterValues#
    EnumPrinters(&PRINTER_ENUM_LOCAL ,0, 5, PrinterValues#, dwNeeded&, ADDR(dwNeeded&), ADDR(dwReturned&))

    Tandis que X& < dwReturned&*20

        Printername& = Long(PrinterValues#,x&)
        PrinterName$ = String$(Printername&,0)
        Attribs& = Long(PrinterValues#,x&+8)
        'folgendes funzt chez mir sous XP pas:
        '	     Si Attribs& & $4
        '            Printername$ = Printername$ + " => Standarddrucker"
        '       endif
        Drucker$[Y&] = Printername$
        X& = X& + 20
        inc Y&

    Endwhile

    Dispose PrinterValues#

ENDPROC

Proc Set_Std_Printer

    Paramètres PrinterString$
    WriteIni "WIN.INI","Windows","Device"=PrinterString$

ENDPROC

cls
EnumPrinters
Imprimer "Gefundene Drucker"

WhileLoop 0,Y&-1

    Imprimer "Drucker " + @str$(&loop) + " : " + Drucker$[&loop]

Endwhile

Old_Standard$ = Substr$(GetStandardPrinter2(),1,»)
Old_Standard_rest$ = Substr$(GetStandardPrinter2(),-2,») + » + Substr$(GetStandardPrinter2(),-1,»)
Imprimer "***"
Imprimer "Standard-Drucker :"
Imprimer Old_Standard$
Imprimer "***"
Imprimer "Drucke sur Drucker " + Drucker$[4]
Set_Std_Printer Drucker$[4] + » +Old_Standard_rest$
StartPrint
DrawText 10,10,"Test " + Drucker$[4]
EndPrint
Imprimer "Drucke sur Drucker " + Drucker$[2]
Set_Std_Printer Drucker$[2]+»+Old_Standard_rest$
StartPrint
DrawText 10,10,"Test " + Drucker$[2]
EndPrint
Imprimer "***"
Imprimer "   >>>alten Standart-Drucker wieder einstellen.."
Set_Std_Printer Old_Standard$+»+Old_Standard_rest$
Imprimer "Standard : " + Old_Standard$
Imprimer "***"
Imprimer »
Imprimer "...warte"
waitinput
end

erzeugt chez mir folgendes la fenêtre (sieht nat. chez chaque anders aus, je pour install. Druckern...)



et funktioniert wunderbar. chez pdf venez qui Abfrage "wo speichern", et chez fax wird pour 'ner fax-numéro gefragt. alors volonté qui Drucker richtig gesetzt.

Möge chacun daraus faire, quoi il veut ...

64 kB
Hochgeladen:11.01.2011
Downloadcounter: 339
Download
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
11.01.2011  ▲
 




Thomas
Freier
peut-être aussi so comme Anregung.
Beim Programmstart "sammel" je qui Drucker un
KompilierenMarqueSéparation
var Lv.p&=Créer(ListBox, %hwnd, 1, 0, 0, 0, 0)' liste qui Drucker
ClearList
EnumPrinters
MoveListToHandle(Lv.p&)
stdprinter$ = GetStandardPrinter(1)
Std_Druck$=stdprinter$
SetText Stat&, 2, "Drucker: "+Std_Druck$
sur EnumPrinters ist oui ici eingegangen worden.

et fais ensuite une Menüpunkt zur sélection
KompilierenMarqueSéparation
PopUp "Drucker"
x%=200

WhileLoop GetCount(Lv.p&)

    AppendMenu (x%+&Boucle),substr$(GetString$(Lv.p&,(&loop-1)),1,"|")
    CheckMenu (x%+&Boucle),val(substr$(GetString$(Lv.p&,(&loop-1)),-1,"|"))

Endwhile

Umstellen sur
KompilierenMarqueSéparation

avec
KompilierenMarqueSéparation
Proc STAND_DRUCKER

    Paramètres p.Item%

    WhileLoop GetCount(Lv.p&)

        CheckMenu (200+&Boucle),0

    Endwhile

    stdevice$=@GetString$(LV.p&,(p.Item%-201))
    stdriv$= @ADD$(@substr$(@readini$("win.ini","devices",stdevice$),1,»),".drv")
    stport$=@substr$(@readini$("win.ini","devices",stdevice$),2,»)
    zusammen$=stdevice$;»;substr$(stdriv$,1,".");»;stport$
    writeini "win.ini","windows","device"=zusammen$
    SendMessage($FFFF,$001A,0,"windows")
    Std_Druck$=stdevice$
    SetText Stat&, 2, "Drucker: "+Std_Druck$
    CheckMenu p.Item%,1

ENDPROC

et/ ou bien qui Drucker-Grundeinstellung anbieten, si ne...aucune Dialog verwendet wird
KompilierenMarqueSéparation
Elseif Menuitem(2002)'-- 'Druckergrundeinstellung

shell "control printers"

Ist qui aussi encore sous WIN7 gültig?
 
Gruß Thomas
Windows XP SP2, XProfan X2
11.01.2011  ▲
 




Dieter
Zornow
@ET:

dein Old_Standard_rest$ peux schwer schiefgehen, si Windows cela pas selbst korrigiert. pas chacun Drucker hat den gleichen Port usw.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
11.01.2011  ▲
 




E.T.
Dieter Zornow (11.01.11)
dein Old_Standard_rest$ peux schwer schiefgehen, si Windows cela pas selbst korrigiert. pas chacun Drucker hat den gleichen Port usw.


cette Old_Standard_rest$  ist oui eigentlich seulement un Verweis pour 16-Bit-Programme, avec cela cet ses Druckaufträge à den Spooler envoyons peut (Kompatiblität - steht aussi pas dans qui Win.ini mais sous HKEY_CURRENT_USER\Printers).

Tricolore la fois umgeschrieben, so cela (chez mir) qui passende Eintrag geschrieben wird:
KompilierenMarqueSéparation
'############### ##########
'Drucker auflisten
'Andreas Miethe * juin 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
Déclarer PrinterValues#, Drucker$[], Y&, Old_Standard$, Old_Standard_rest$
DEF GetStandardPrinter2(0) ReadIni$("WIN.INI","Windows","Device")

Proc EnumPrinters

    Déclarer Printername&,Portname&,PrinterName$,PortName$,Attribs&
    Déclarer X&,dwNeeded&,dwReturned&
    EnumPrinters(&PRINTER_ENUM_LOCAL,0,5,0,0,ADDR(dwNeeded&),ADDR(dwReturned&))
    Faible PrinterValues#,dwNeeded&
    Claire PrinterValues#
    EnumPrinters(&PRINTER_ENUM_LOCAL ,0, 5, PrinterValues#, dwNeeded&, ADDR(dwNeeded&), ADDR(dwReturned&))

    Tandis que X& < dwReturned&*20

        Printername& = Long(PrinterValues#,x&)
        PrinterName$ = String$(Printername&,0)
        Attribs& = Long(PrinterValues#,x&+8)
        'folgendes funzt chez mir sous XP pas:
        '	     Si Attribs& & $4
        '            Printername$ = Printername$ + " => Standarddrucker"
        '       endif
        Drucker$[Y&] = Printername$ + ",winspool,Ne0" + @str$(Y&) + »
        X& = X& + 20
        inc Y&

    Endwhile

    Dispose PrinterValues#

ENDPROC

Proc Set_Std_Printer

    Paramètres PrinterString$
    WriteIni "WIN.INI","Windows","Device"=PrinterString$

ENDPROC

cls
EnumPrinters
Imprimer "Gefundene Drucker"

WhileLoop 0,Y&-1

    Imprimer "Drucker " + @str$(&loop) + " : " + Substr$(Drucker$[&loop],1,»)

Endwhile

Imprimer "***"
Imprimer "Standard-Drucker :"
Old_Standard$ = ReadIni$("WIN.INI","Windows","Device")
Imprimer Substr$(Old_Standard$,1,»)
Imprimer "***"
Imprimer "Setze Std.-Drucker : " + Substr$(Drucker$[4],1,»)
Set_Std_Printer Drucker$[4]
Imprimer " Drucke sur Drucker : " + Substr$(Drucker$[4],1,»)
StartPrint
DrawText 10,10,"Test " + Drucker$[4]
EndPrint
Imprimer "***"
Imprimer "Setze Std.-Drucker sur : " + Substr$(Drucker$[2],1,»)
Set_Std_Printer Drucker$[2]
Imprimer " Drucke sur Drucker : " + Substr$(Drucker$[2],1,»)
StartPrint
DrawText 10,10,"Test " + Drucker$[2]
EndPrint
Imprimer "***"
Imprimer ">>>alten Standart-Drucker wieder einstellen.."
Set_Std_Printer Old_Standard$
Imprimer " Standard : " + Substr$(Old_Standard$,1,»)
Imprimer "***"
Imprimer »
Imprimer "...warte"
waitinput
end
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
11.01.2011  ▲
 



Erstmal DANKE pour qui vielen répondre, maintenant peux je mir wirklich aussuchen comment je cela fais. Super suis zwar encore pas en supplément gekommen es umzusetzen,werd mais Bericht erstatten sobald geschehen.

Grüsse aus dem Alpenland / Herbert
 
16.01.2011  ▲
 




Erasmus.Herold
TOP !!!

cela habe je gesucht.

Salut - Erasmus
 
09.07.2019  ▲
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

18.332 Views

Untitledvor 0 min.
Tommy13.02.2023
Erasmus.Herold21.01.2023
Axel Berse27.07.2022
p.specht12.06.2021
plus...

Themeninformationen

cet Thema hat 7 participant:

Schrotti Herbert (2x)
E.T. (2x)
Thomas Freier (2x)
Erasmus.Herold (1x)
unbekannt (1x)
Dieter Zornow (1x)
iF (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie