XProfan

Español

liveFamilie

Yo brauche veces otra vez una Anstoss. Búsqueda ya seit 2 Tagen y finde el Wald antes lauter Bäumen no mehr.

Yo brauche para mein Progie, una Drucker einrichten Menu.
El Beispiele siempre darauf bezogen, igual danach auszudrucken o. algo abzuspeichern.
Yo möchte simplemente sólo si yo en mi Menu "Drucker einrichten" auswähle, el me entonces el Windowsdruckmenu aufgeht, Soy un Drucker auswählen kann y dieser se a para Programmende (oder uno erneuten Auswahl) como Standarddrucker para el Programa aktiv ser.
Aber si yo gleichzeitig z.B. word öffne, möchte Yo, el mein eigentlich eingestellter Standard-Drucker auch weiterhin Standard es.
Ejemplo
Standard-Drucker para Word : es mein HP-Drucker
en mi Prog wähle Yo como Drucker el pdf-Creator de como Standard.

TIPPS ? Hinweise ?
Como wäre Yo muy dankbar.

Toni

PS:
Bitte en Profano 8.

XProfan 8
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.

26.02.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

liveFamilie

Hola Tomás,

en deinem Code es algo de XProfan8 sabe el no.
Yo weis no qué du geändert hast (habe todavía no Comparar angestellt) aber el funktioniert komischer Weise.
Tal vez Yo incluso en el otro Sachen (code auslesen y verändern para mi Bedürfnisse) una Fehler gemacht.
Dahe kann Yo dir sólo DANKEN.

Saludo
Toni

XProfan 8
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.

10.03.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

p.specht

DRWAHL.EXE de el Programmpaket:

RGH-DRUCK 2.0 - Das universerlle Drucksystem para todos Drucker con Einstellungsdialog, RGH-Druckersprache, etc Lauffähig bajo Windows 9x/ME/NT 4/2000 (ca. 580 kb)
Site: [...]

... stammt zwar vom 24.12.2000, se ejecuta en me aber siempre todavía bastante bien.

Descargar: [...]

Mit RUN DRWAHL.EXE starten, eventuell como Admin.
Gruss

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

26.02.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

liveFamilie

¡Hola P.Pájaro carpintero

el con el RGH-Druck es bien,
pero si Yo en mi Prog con run aufrufe (es auch en el Ayuda) schliest lo mein Programa.
Ein otro Aufruf wäre como mejor como run.

Toni

XProfan 8
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.

26.02.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Usted mußt en Deinem Programa - direkt antes el Druckvorgang - el Standarddrucker ajustar y el alten Drucker merken. Danach otra vez zurückstellen.
Hier findet Usted Beispiele: [...]

Auch veces en el Búsqueda "Drucker" eingeben. Como findet se einiges.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

26.02.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

liveFamilie

¡Hola,

also el Druck con RGH-Druck es schlecht, merkt se no el Drucker usw.

Jörg,
habe viel gelesen y ausprobiert (auch el Beispiele el uno así bekommt).
Posesiones aber esta desafortunadamente nichts passendes gefunden, qué meiner Vorstellung nahe kommt.
Zurück para Ejemplo.
Egal con welcher Anwendung Yo arbeite en Windows, lo se en mi Standard Drucker HP ausgegeben. Auch si yo el Drucker einrichtung öffne lo es siempre mein Standard Drucker drin.
Wenn Yo el Prog öffne (qué me como Presentación para meines dient) wähle Yo el Drucker einrichtung de y hay z.B. el PDF-Drucker, el Prog merkt se esta egal como oft Yo el Druckereinrichtung öffne y schließe, nie es el Standarddrucker drin, pero siempre el PDF-Drucker.

Nehme Yo hier el Beispiele el lo son, öffne Yo el druckmenu wähle PDF-Drucker de y kann entonces drucken. Arbeite Yo en el Prog y öffne otra vez el Druckmenu, es el Standarddrucker HP drin y no mehr el PDF-Drucker.
¿Cómo se puede Yo also el bewerkstelligen, el mein Prog se el eingestellten Drucker a para Programmende merkt. Ohne el Yo jedesmal esta neu einstellen muss beim Aufruf de Drucken ?)

Yo hoffe lo verdadero verständlich Yo möchte.
Yo denke así a einlesen aller Drucker, el deseado einstellen (como Variable), y esta merken a para Programmende, en Druck entonces sólo umschreiben si él aufgerufen se y luego otra vez zurückschreiben en Standard-Drucker y trotzdem se todavía media más merken.
Muss also todavía viel experimentieren a Yo el hinbekomme.

Toni

XProfan 8
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.

03.03.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Also Yo tener mein Bsp ( [...]

) ya largo sin Problemas en el Einsatz. Das Zuweisen uno Druckers al Programmstart o. en uno Konfiguration es nat. no por "Standard-Druckauswahl", como esta sí sólo temporär wirkt. Wenn el Konfig sólo una vez es (en INI abgelegt) , kann cada Drucker cualquier en el Programa verwendet voluntad, sin irgend una Diálogo aufrufen tener.

XProfan X2
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...

03.03.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Versteh Yo no. In diesem Hilo [...]

se doch genau dafür una Ejemplo angegeben.
Usted mußt sólo antes cada Druckvorgang el Drucker neu einstellen. Nachdem Usted ihn el erste Tiempo eingestellt hast, debería el aber kein Problema ser, como Usted ihn Usted sí merken kannst.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

03.03.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Posesiones bajo XProfan8 lo una vez zusammen gefasst. Sollte en el Programa siempre el gleiche Drucker eingesetzt voluntad, muß, como Mario lo schreibt, dieser en uno INI hinterlegt voluntad. Beim Druck es entonces natürlich a prüfen, si dieser Drucker auch ansprechbar es (%Printing es seit 8 disponible). Andenfalls el Druckerliste en un Listbox y prüfen, si esta Drucker todavía son.

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
DEF GetStandardPrinter2(0) ReadIni$("WIN.INI","Windows","Device")
Declarar PrgDucker$
Declarar DruckSeite&
Declarar DruckerListe&
Declarar x&, y&, x$, y$, x%, y%
Declarar Old_Standard$, Old_Standard_rest$
cls
UseFont "ARIAL",16,0,0,0,0
SetDialogFont 1
'ACHTUNG : XProfan8 sabe en Substr$ -1 todavía no
' benötigt voluntad el beiden letzten Teile, also Anzahl en "," ermitteln
Old_Standard$=GetStandardPrinter2()
x%=1

Mientras que 10

    caso Substr$(Old_Standard$,x%,",")="" :BREAK
    inc x%

EndWhile

Old_Standard_rest$ = Substr$(Old_Standard$,(x%-2),",") + "," + Substr$(Old_Standard$,(x%-1),",")
locate 10,0
imprimir x%
imprimir GetStandardPrinter2()
'imprimir Substr$(GetStandardPrinter2(),-2,",")
'imprimir Substr$(GetStandardPrinter2(),-1,",")
imprimir Old_Standard_rest$
DrawText 40,20,"Standard-Drucker: " + Old_Standard$
DrawText 40,36,"Drucker para esta Anwendung:"
DruckerListe&=Crear("ChoiceBox", %hWnd, "", 40, 64, 280, 280)
EnumPrinters
DruckSeite&=CreateButton(%hwnd,"Druck Testseite",400,64,120,22)

Mientras que 0=0

    WaitInput

    If Getfocus(DruckerListe&)

        PrgDucker$=GetText $(DruckerListe&)
        DrawText 240,36,"                                                     "
        DrawText 240,36,PrgDucker$

    ElseIf Getfocus(DruckSeite&)

        If len(trim$(PrgDucker$)) = 0

            MessageBox("Kein Drucker gewählt","Hinweis",32)

        Más

            DRUCKETEST
            SetFocus(%hWnd)

        EndIf

    EndIf

EndWhile

End

Proc DRUCKETEST

    Set_Std_Printer PrgDucker$ + "," +Old_Standard_rest$'en PDF-Drucker schalten
    StartPrint "TEST"
    DrawText 40,10,"Drucker para esta Anwendung:"
    EndPrint
    Set_Std_Printer Old_Standard$'zurück en Standard-Drucker

ENDPROC

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Proc Set_Std_Printer

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

ENDPROC

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Drucker auflisten'Andreas Miethe * Juni 2003

Proc EnumPrinters

    Declarar Printername&,Portname&,PrinterName$,PortName$,Attribs&
    Declarar X&,dwNeeded&,dwReturned&, PrinterValues#
    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
        @AddChoice(DruckerListe&, Printername$)
        X& = X& + 20

    EndWhile

    Disponer PrinterValues#

ENDPROC