XProfan

Français

liveFamilie

il me faut la fois wieder une Anstoss. cherche déjà depuis 2 Tagen et finde den forêt avant lauter Bäumen pas plus.

il me faut pour mon Progie, un Drucker einrichten Menu.
qui Beispiele sommes toujours puis bezogen, juste après auszudrucken bzw. quelque chose abzuspeichern.
je voudrais simple seulement si je dans mon Menu "Drucker einrichten" auswähle, cela mir ensuite cela Windowsdruckmenu aufgeht, je une Drucker auswählen peux et cette soll jusqu'à zum Programmende (ou bien einer erneuten sélection) comme Standarddrucker pour cela Programme aktiv son.
mais si je gleichzeitig z.B. word ouvre, voudrais je, cela mon eigentlich eingestellter Standard-Drucker aussi weiterhin Standard ist.
Beispiel
Standard-Drucker pour Word : ist mon HP-Drucker
dans mon Prog wähle je comme Drucker den pdf-Creator aus comme Standard.

TIPPS ? Hinweise ?
là wäre je très reconnaissant.

Toni

PS:
s'il te plaît dans Profan 8.

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

26.02.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

liveFamilie

allô Thomas,

dans deinem Code steht quelque chose de XProfan8 kennt cela pas.
je weis pas quoi du geändert la hâte (habe encore aucun vergleiche angestellt) mais cela funktioniert komischer Weise.
peut-être habe je aussi chez den anderen Sachen (code auslesen et verändern pour mon Bedürfnisse) une faute gemacht.
Dahe peux je dir seulement DANKEN.

Salut
Toni

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

10.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

p.specht

DRWAHL.EXE aus dem Programmpaket:

RGH-DRUCK 2.0 - cela universerlle Drucksystem pour alle Drucker avec Einstellungsdialog, RGH-Druckersprache, etc Lauffähig sous Windows 9x/ME/NT 4/2000 (ca. 580 kb)
Site: [...]

... stammt zwar vom 24.12.2000, fonctionne chez mir mais toujours droite bien.

Télécharger: [...]

avec RUN DRWAHL.EXE starten, eventuell comme Admin.
Gruss

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

26.02.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

liveFamilie

allô P.Specht

cela avec dem RGH-Druck ist bien,
mais si je es dans mon Prog avec run aufrufe (steht aussi dans qui Aider) schliest es mon Programme.
un anderer Aufruf wäre là besser comme 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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

tu dois dans Deinem Programme - direct avant dem Druckvorgang - den Standarddrucker ajuster et den alten Drucker merken. après wieder zurückstellen.
ici findet Du Beispiele: [...]

aussi la fois dans qui cherche "Drucker" eingeben. là findet sich einiges.

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

26.02.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

liveFamilie

Salut,

alors qui Druck avec RGH-Druck ist mal, merkt sich pas den Drucker usw.

Jörg,
habe viel gelesen et ausprobiert (aussi qui Beispiele qui on so bekommt).
Habe mais dabei malheureusement rien passendes trouvé, quoi meiner Vorstellung proche venez.
Zurück zum Beispiel.
égal avec quel Anwendung je travaille dans Windows, es wird sur meinem Standard Drucker HP ausgegeben. aussi si je qui Drucker einrichtung ouvre es steht toujours mon Standard Drucker drin.
si je cela Prog ouvre (quoi mir comme Présentation pour meines dient) wähle je qui Drucker einrichtung aus et là z.B. den PDF-Drucker, cela Prog merkt sich cette égal comment souvent je qui Druckereinrichtung ouvre et schließe, nie steht qui Standarddrucker drin, mais toujours qui PDF-Drucker.

Nehme je ici qui Beispiele qui il y a, ouvre je cela druckmenu wähle PDF-Drucker aus et peux ensuite drucken. Arbeite je dans dem Prog et ouvre wieder cela Druckmenu, steht qui Standarddrucker HP drin et pas plus qui PDF-Drucker.
comment peux je alors cela bewerkstelligen, cela mon Prog sich den eingestellten Drucker jusqu'à zum Programmende merkt. sans le moi chaque fois cette récente einstellen muss beim Aufruf de Drucken ?)

je hoffe es véritable verständlich quoi je voudrais.
je denke so à einlesen aller Drucker, den gewünschten einstellen (comme Variable), et cette merken jusqu'à zum Programmende, chez Druck ensuite seulement paraphraser si il aufgerufen wird et ensuite wieder zurückschreiben sur Standard-Drucker et quand même sich encore meinen plus merken.
Muss alors encore viel experimentieren jusqu'à je cela 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 citation

Absatzweise Citation Zeilenweise Citation

E.T.

alors je hab mon Bsp ( [...]

) déjà longtemps sans Probleme im Einsatz. cela Zuweisen eines Druckers am Programmstart bzw. dans einer Konfiguration erfolgt nat. pas per "Standard-Druckauswahl", là cet oui seulement temporär wirkt. si qui Konfig seulement einmal steht (dans INI abgelegt) , peux chacun Drucker beliebig im Programme verwendet volonté, sans irgend une Dialog appel trop doit.

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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Versteh je pas. dans diesem Fil [...]

wird doch oui c'est ca pour un Beispiel angegeben.
tu dois seulement avant chaque Druckvorgang den Drucker récente einstellen. après que Du ihn cela erste la fois eingestellt la hâte, sollte cela mais ne...aucune Problem son, là Du ihn Dir oui merken peux.

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

03.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

Habe sous XProfan8 es einmal zusammen gefasst. Sollte im Programme toujours qui gleiche Drucker eingesetzt volonté, doit, comment Mario es écrit, cette dans einer INI hinterlegt volonté. Beim Druck ist ensuite naturellement trop vérifier, si cette Drucker aussi ansprechbar ist (%Printing ist depuis 8 vorhanden). Andenfalls qui Druckerliste dans un Listbox et vérifier, si es cette Drucker encore gibt.

Kompilieren Marque Sé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
DEF GetStandardPrinter2(0) ReadIni$("WIN.INI","Windows","Device")
Déclarer PrgDucker$
Déclarer DruckSeite&
Déclarer DruckerListe&
Déclarer x&, y&, x$, y$, x%, y%
Déclarer Old_Standard$, Old_Standard_rest$
cls
UseFont "ARIAL",16,0,0,0,0
SetDialogFont 1
'ACHTUNG : XProfan8 kennt chez Substr$ -1 encore pas
' nécessaire volonté qui beiden letzten Teile, alors Anzahl chez "," ermitteln
Old_Standard$=GetStandardPrinter2()
x%=1

Tandis que 10

    cas Substr$(Old_Standard$,x%,»)=» :BREAK
    inc x%

Endwhile

Old_Standard_rest$ = Substr$(Old_Standard$,(x%-2),») + » + Substr$(Old_Standard$,(x%-1),»)
locate 10,0
imprimer x%
imprimer GetStandardPrinter2()
'imprimer Substr$(GetStandardPrinter2(),-2,",")
'imprimer Substr$(GetStandardPrinter2(),-1,",")
imprimer Old_Standard_rest$
DrawText 40,20,"Standard-Drucker: " + Old_Standard$
DrawText 40,36,"Drucker pour cet Anwendung:"
DruckerListe&=Créer("ChoiceBox", %hWnd, », 40, 64, 280, 280)
EnumPrinters
DruckSeite&=CreateButton(%hwnd,"Druck Testseite",400,64,120,22)

Tandis que 0=0

    WaitInput

    Si Getfocus(DruckerListe&)

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

    ElseIf Getfocus(DruckSeite&)

        Si len($ Trim(PrgDucker$)) = 0

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

        D'autre

            DRUCKETEST
            SetFocus(%hWnd)

        EndIf

    EndIf

Endwhile

Fin

Proc DRUCKETEST

    Set_Std_Printer PrgDucker$ + » +Old_Standard_rest$'sur PDF-Drucker schalten
    StartPrint "TEST"
    DrawText 40,10,"Drucker pour cet Anwendung:"
    EndPrint
    Set_Std_Printer Old_Standard$'zurück sur Standard-Drucker

ENDPROC

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

Proc Set_Std_Printer

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

ENDPROC

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

Proc EnumPrinters

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

    Endwhile

    Dispose PrinterValues#

ENDPROC