XProfan

English

liveFamilie

I need time again a Anstoss. Search already since 2 Meet and find whom woods not sheer trees More.

I need for my Progie, one printer arrange Menu.
The Examples are always hereon related, same thereafter to print or. something abzuspeichern.
i want just if I in my Menu "Drucker einrichten" auswähle, the me then the Windowsdruckmenu aufgeht, I a printer select can and this should until End of program (or of/ one renewed selection) as Standarddrucker for the Program active his.
But if I at the same time z.B. word open, would like I, the my really eingestellter standard-printer too furthermore standard is.
example
standard-printer for Word : is my HP-printer
in my Prog dial I as printer whom pdf-Creator from as standard.

TIPPS ? Notes ?
there would I very grateful.

Toni

PS:
Please in Profan 8.

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

02/26/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

liveFamilie

Hello Thomas,

in your code standing something of XProfan8 knows not.
I wisely not what You changed have (have yet no compare employed) but the functions komischer point.
Perhaps have so did i with whom others things (code read and change for my needs) a Error made.
Dahe can I you only DANKEN.

Greeting
Toni

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

03/10/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

p.specht

DRWAHL.EXE from the Programmpaket:

RGH PRINTING 2.0 - the universerlle Drucksystem for all printer with Einstellungsdialog, RGH-Druckersprache, etc executable under windows 9x/ME/NT 4/2000 (ca. 580 kb)
Site: [...]

... stammt of course of 24.12.2000, runs by me but still right well.

Download: [...]

with RUN DRWAHL.EXE started, possible as Admin.
greeting

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

02/26/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

liveFamilie

Hello P.woodpecker

with the the RGH-pressure is well,
but if I it in my Prog with run aufrufe (standing too in the Help) schliest it my Program.
another appeal would there rather as run.

Toni

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

02/26/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

you mußt in Your Program - directly to the Druckvorgang - whom Standarddrucker adjust and the middle-aged printer remember. thereafter again turn back.
here finds You Examples: [...]

too time in the Search "Drucker" prompt. there finds itself some.

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

02/26/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

liveFamilie

Hi,

means the Pressure RGH-pressure is badly, observes not whom printer etc.

Jörg,
have plenty red and ausprobiert (too The Examples everybody can so get).
have but thereby unfortunately nothing suitable found, what of my Review near comes.
back to that example.
alike with which application I work in windows, it'll on my standard printer HP outputted. even if I The printer facility open it standing always my standard printer drin.
If I the Prog open (what me as Presentation for of my serves) dial I The printer facility from and there z.B. whom PDF-printer, the Prog observes itself this alike How often I The Druckereinrichtung open and schließe, never standing the Standarddrucker drin, separate always the PDF-printer.

take I here The Examples The there's, open I the druckmenu dial PDF-printer from and can then print. work I in the Prog and open again the Druckmenu, standing the Standarddrucker HP drin and not any more the PDF-printer.
How can I So the manage, the my Prog itself whom tuned printer until End of program observes. without that I jedesmal this new take on must when calling of Print ?)

i hope so true verständlich I would like.
i think so on reading all printer, whom desired take on (as Variable), and this remember until End of program, with pressure then first paraphrase if it called and is then again write back on standard-printer and nevertheless itself yet my moreover remember.
must means yet plenty experiment To I the hinbekomme.

Toni

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

03/03/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

So I Have my Bsp ( [...]

) already long without Problems in use. the allocate one Druckers on the Program Start or. in a Konfiguration results nat. not by "Standard-Druckauswahl", there these Yes only temporär works. If the Konfig first once standing (in INI stored) , can eachone printer discretionary in the program uses go, without ever a dialog Call To must.

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/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Versteh I do not. in this Thread [...]

becomes still very for an example indicated.
you mußt only before each Druckvorgang whom printer new take on. after You it the first time tuned have, ought to the but no trouble his, there You it you Yes remember can.

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

03/03/12 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

have under XProfan8 it once together gefasst. ought to in the program always the same printer inserted go, must, How Mario it writes, this in a INI hinterlegt go. at that pressure is then naturally To Verify, whether this printer too ansprechbar is (%Printing is since 8 present). Andenfalls The Druckerliste in a Listbox and Verify, whether it this printer yet gives.

Compile Mark Separation

' printer List'Andreas Miethe * june 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")
Declare PrgDucker$
Declare DruckSeite&
Declare DruckerListe&
Declare x&, y&, x$, y$, x%, y%
Declare Old_Standard$, Old_Standard_rest$
cls
UseFont "ARIAL",16,0,0,0,0
SetDialogFont 1
'ACHTUNG : XProfan8 knows with Substr$ -1 not yet
' needed go the two last pieces, means amount with "," detect
Old_Standard$=GetStandardPrinter2()
x%=1

While 10

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

EndWhile

Old_Standard_rest$ = Substr$(Old_Standard$,(x%-2),",") + "," + Substr$(Old_Standard$,(x%-1),",")
locate 10,0
print x%
print GetStandardPrinter2()
'print Substr$(GetStandardPrinter2(),-2,",")
'print Substr$(GetStandardPrinter2(),-1,",")
print Old_Standard_rest$
DrawText 40,20,"Standard-printer: " + Old_Standard$
DrawText 40,36,"Drucker for these application:"
DruckerListe&=Create("ChoiceBox", %hWnd, "", 40, 64, 280, 280)
EnumPrinters
DruckSeite&=CreateButton(%hwnd,"Druck Testseite",400,64,120,22)

While 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("No printer gewählt","Hinweis",32)

        Else

            DRUCKETEST
            SetFocus(%hWnd)

        EndIf

    EndIf

EndWhile

End

Proc DRUCKETEST

    Set_Std_Printer PrgDucker$ + "," +Old_Standard_rest$'on PDF-printer chid
    StartPrint "TEST"
    DrawText 40,10,"Drucker for these application:"
    EndPrint
    Set_Std_Printer Old_Standard$'back on standard-printer

ENDPROC

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

Proc Set_Std_Printer

    Parameters PrinterString$
    WriteIni "WIN.INI","Windows","Device"=PrinterString$

ENDPROC

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' printer List'Andreas Miethe * june 2003

Proc EnumPrinters

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

    While X& < dwReturned&*20

        Printername& = Long(PrinterValues#,x&)
        PrinterName$ = String $(Printername&,0)
        Attribs& = Long(PrinterValues#,x&+8)
        'the following working by me XP not:
        '       If Attribs& & $4
        '            Printername$ = Printername$ + " => Standarddrucker"
        '       endif
        @AddChoice(DruckerListe&, Printername$)
        X& = X& + 20

    EndWhile

    Dispose PrinterValues#

Endproc