(2.038)  Registro

Español
Foro

Druckerauswahl sin Diálogo

 

Schrotti
Herbert
¡Hola todos miteinander,
Hab veces una Cuestión a Druckerauswahl y zwar es posible direkt de Xprofan una Windowsdrucker sin Diálogo auszuwählen ( salvo el Standartdrucker) ?

Mein Problema es el Yo una vez una Etikettendrucker y una vez el Pdf Creator verwende y el de el gleichen Anwendung.

Bis ahora Tuve una Posdrucker, welchen Puedo usar el Imprimir# Befehlen füttere.
Der "neue" Drucker (Zebra Stripe 300) reagiert no mehr en el Befehle, denke el versteht el Esc Sequenzen nimmer.
Hab me pensamiento löse el problema simplemente con Sartprint .....Endprint usw.

Nur eben zuerst el Etikett en el Zebra entonces una Liste en una Netzwerkdrucker.

Sombrero tal vez alguien una Concepto?

Bitte no zuviel Fachchinesisch como Todavía no allzuviel Idea habe.
 
10.01.2011  ▲
 




Thomas
Freier
Mit el hier disponible Beispielen, sería Yo simplemente el Standarddrucker ermitteln, si él no Zebra es, esta como Standarddrucker conjunto, drucken, y el alten Standarddrucker otra vez como solchen einstellen. Gibt determinado bessere Lösungen.
 
Gruß Thomas
Windows XP SP2, XProfan X2
10.01.2011  ▲
 




Schrotti
Herbert
Hola Thomas
Erstmal Gracias para el Antwort.
Sí el Concepto me está auch ya gekommen allerdings bin Todavía no draufgekommen como yo mach.Den Standartdrucker determinar dafür tener Yo algunos Beispiele gefunden.
Zum ajustar aber nichts, oder bin Yo blind antes Eifer......

Schöne Grüsse de el Alpenland / Herbert

Achja nebenher habe Winxp y Xprofan9
 
10.01.2011  ▲
 



Schau veces Ermittlung (  [...]  ) :
KompilierenMarcaSeparación
DEF GetStandardPrinter(0) Substr$(ReadIni$("WIN.INI","Windows","Device"),1,",")
- also podría equivalentes WriteIni trabajo.
 
10.01.2011  ▲
 




E.T.
Hab veces una wenig "gebastelt":
KompilierenMarcaSeparación
'############### ##########
'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
Declarar PrinterValues#, Drucker$[], Y&, Old_Standard$, Old_Standard_rest$
DEF GetStandardPrinter2(0) ReadIni$("WIN.INI","Windows","Device")

Proc EnumPrinters

    Declarar Printername&,Portname&,PrinterName$,PortName$,Attribs&
    Declarar X&,dwNeeded&,dwReturned&
    EnumPrinters(&PRINTER_ENUM_LOCAL,0,5,0,0,ADDR(dwNeeded&),ADDR(dwReturned&))
    Dim PrinterValues#,dwNeeded&
    Claro PrinterValues#
    EnumPrinters(&PRINTER_ENUM_LOCAL ,0, 5, PrinterValues#, dwNeeded&, ADDR(dwNeeded&), ADDR(dwReturned&))

    Mientras que X& < dwReturned&*20

        Printername& = Largo(PrinterValues#,x&)
        PrinterName$ = String$(Printername&,0)
        Attribs& = Largo(PrinterValues#,x&+8)
        'folgendes funzt en me bajo XP no:
        '	     If Attribs& & $4
        '            Printername$ = Printername$ + " => Standarddrucker"
        '       endif
        Drucker$[Y&] = Printername$
        X& = X& + 20
        inc Y&

    EndWhile

    Disponer PrinterValues#

ENDPROC

Proc Set_Std_Printer

    Parámetros PrinterString$
    WriteIni "WIN.INI","Windows","Device"=PrinterString$

ENDPROC

cls
EnumPrinters
Imprimir "Gefundene Drucker"

WhileLoop 0,Y&-1

    Imprimir "Drucker " + @str$(&bucle) + " : " + Drucker$[&bucle]

EndWhile

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

producido en me folgendes Ventana (sieht nat. cada anders de, je después de install. Druckern...)



y funktioniert wunderbar. En pdf kommt el Abfrage "wo speichern", y en Fax se después de 'ner Fax-Nummer gefragt. Also voluntad el Drucker correcto gesetzt.

Möge cada lo hacer, qué él voluntad ...

64 kB
Hochgeladen:11.01.2011
Ladeanzahl: 442
Descargar
 
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
Tal vez auch así como Anregung.
Beim Programmstart "sammel" Yo el Drucker una
KompilierenMarcaSeparación
var Lv.p&=Crear("ListBox", %hwnd, 1, 0, 0, 0, 0)' Liste el Drucker
ClearList
EnumPrinters
MoveListToHandle(Lv.p&)
stdprinter$ = GetStandardPrinter(1)
Std_Druck$=stdprinter$
SetText Stat&, 2, "Drucker: "+Std_Druck$
en EnumPrinters es sí hier eingegangen worden.

Und mache entonces una Menüpunkt a Auswahl
KompilierenMarcaSeparación
PopUp "Drucker"
x%=200

WhileLoop GetCount(Lv.p&)

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

EndWhile

Umstellen encima
KompilierenMarcaSeparación

con
KompilierenMarcaSeparación
Proc STAND_DRUCKER

    Parámetros p.Item%

    WhileLoop GetCount(Lv.p&)

        CheckMenu (200+&Loop),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

Und/ o Drucker-Grundeinstellung anbieten, si kein Diálogo verwendet se
KompilierenMarcaSeparación
Elseif MenuItem(2002)'-- 'Druckergrundeinstellung

shell "control printers"

Ist el auch todavía bajo WIN7 gültig?
 
Gruß Thomas
Windows XP SP2, XProfan X2
11.01.2011  ▲
 




Dieter
Zornow
@ET:

dein Old_Standard_rest$ kann schwer schiefgehen, si Windows el no incluso korrigiert. No cada Drucker ha el 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$ kann schwer schiefgehen, si Windows el no incluso korrigiert. No cada Drucker ha el gleichen Port usw.


Dieser Old_Standard_rest$  es sí eigentlich sólo una Verweis para 16-Bit-Programas, así esta ihre Druckaufträge a el Spooler enviar puede (Kompatiblität - es auch no en el Win.ini pero bajo HKEY_CURRENT_USER\Printers).

Habs veces umgeschrieben, así el (en me) el passende Eintrag geschrieben se:
KompilierenMarcaSeparación
'############### ##########
'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
Declarar PrinterValues#, Drucker$[], Y&, Old_Standard$, Old_Standard_rest$
DEF GetStandardPrinter2(0) ReadIni$("WIN.INI","Windows","Device")

Proc EnumPrinters

    Declarar Printername&,Portname&,PrinterName$,PortName$,Attribs&
    Declarar X&,dwNeeded&,dwReturned&
    EnumPrinters(&PRINTER_ENUM_LOCAL,0,5,0,0,ADDR(dwNeeded&),ADDR(dwReturned&))
    Dim PrinterValues#,dwNeeded&
    Claro PrinterValues#
    EnumPrinters(&PRINTER_ENUM_LOCAL ,0, 5, PrinterValues#, dwNeeded&, ADDR(dwNeeded&), ADDR(dwReturned&))

    Mientras que X& < dwReturned&*20

        Printername& = Largo(PrinterValues#,x&)
        PrinterName$ = String$(Printername&,0)
        Attribs& = Largo(PrinterValues#,x&+8)
        'folgendes funzt en me bajo XP no:
        '	     If Attribs& & $4
        '            Printername$ = Printername$ + " => Standarddrucker"
        '       endif
        Drucker$[Y&] = Printername$ + ",winspool,Ne0" + @str$(Y&) + ":"
        X& = X& + 20
        inc Y&

    EndWhile

    Disponer PrinterValues#

ENDPROC

Proc Set_Std_Printer

    Parámetros PrinterString$
    WriteIni "WIN.INI","Windows","Device"=PrinterString$

ENDPROC

cls
EnumPrinters
Imprimir "Gefundene Drucker"

WhileLoop 0,Y&-1

    Imprimir "Drucker " + @str$(&bucle) + " : " + Substr$(Drucker$[&bucle],1,",")

EndWhile

Imprimir "***"
Imprimir "Standard-Drucker :"
Old_Standard$ = ReadIni$("WIN.INI","Windows","Device")
Imprimir Substr$(Old_Standard$,1,",")
Imprimir "***"
Imprimir "Setze Std.-Drucker : " + Substr$(Drucker$[4],1,",")
Set_Std_Printer Drucker$[4]
Imprimir " Drucke en Drucker : " + Substr$(Drucker$[4],1,",")
StartPrint
DrawText 10,10,"Test " + Drucker$[4]
EndPrint
Imprimir "***"
Imprimir "Setze Std.-Drucker en : " + Substr$(Drucker$[2],1,",")
Set_Std_Printer Drucker$[2]
Imprimir " Drucke en Drucker : " + Substr$(Drucker$[2],1,",")
StartPrint
DrawText 10,10,"Test " + Drucker$[2]
EndPrint
Imprimir "***"
Imprimir ">>>alten Standart-Drucker otra vez einstellen.."
Set_Std_Printer Old_Standard$
Imprimir " Standard : " + Substr$(Old_Standard$,1,",")
Imprimir "***"
Imprimir ""
Imprimir "...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 para el vielen Respuesta, ahora kann Yo wirklich aussuchen como yo mache. Super bin zwar todavía no dazu gekommen lo umzusetzen,werd aber Bericht erstatten sobald geschehen.

Grüsse de el Alpenland / Herbert
 
16.01.2011  ▲
 




Erasmus.Herold
TOP !!!

Das Yo gesucht.

Saludo - Erasmus
 
09.07.2019  ▲
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

18.696 Views

Untitledvor 0 min.
Tommy13.02.2023
Erasmus.Herold21.01.2023
Axel Berse27.07.2022
p.specht12.06.2021
Más...

Themeninformationen

Dieses Thema ha 7 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie