XProfan

Español

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Schau veces Ermittlung ( [...]

) :

Kompilieren Marca Separación

DEF GetStandardPrinter(0) Substr$(ReadIni$("WIN.INI","Windows","Device"),1,",")

- also podría equivalentes WriteIni trabajo.

10.01.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Hab veces una wenig "gebastelt":

Kompilieren Marca Separació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

...

printer.jpg	64 kB

Hochgeladen:	11.01.2011

Ladeanzahl:
		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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Tal vez auch así como Anregung.
Beim Programmstart "sammel" Yo el Drucker una

Kompilieren Marca Separació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

Kompilieren Marca Separació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

Kompilieren Marca Separación

Elseif (%MenuItem>200) And (%MenuItem<300)

STAND_DRUCKER %MenuItem

con

Kompilieren Marca Separació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

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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:

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita