Re: setPrintJobProperty problem
CChris wrote:
>
> Andy Drummond wrote:
> >
> > Andy Drummond wrote:
> > >
> > > CChris wrote:
> > > >
> > > > Andy Drummond wrote:
> > > > >
> > > > > CChris wrote:
> > > > > >
> > > > > >
> > > > > > Since getPrinterChoice() displays a dialog box where the user might
> > > > > > change
> > > settings,</font></i>
> > > > > > it has to check for these changes and make them effective for the
> > > > > > printer.
> > > That's</font></i>
> > > > > > a fair amount of code indeed.
> > > > > >
> > > > > > > If so, should you add the getDefault Printer() to Win32Lib then I
> > > > > > > assume
> > > it</font></i>
> > > > > > > would set things up exactly the same as getPrinter()+OK does. Then
> it will</font></i>
> > > > > > > work fine. I can wait; it is not a great pain like the press shift
> > > > > > > once
> > > pain.</font></i>
> > > > > > >
> > > > > >
> > > > > > The code I had posted was meant to be pasted in w32resources.ew,
> > > > > > right
> after</font></i>
> > > > > > getPrinterChoice(). It will be in 70.2 anyway, probably with the
> > > > > > enhancements
> > > > > > suggested above.
> > > > > >
> > > > > > > Is it possible to call getPrinter() with an argument which tells
> > > > > > > the
> > routine</font></i>
> > > > > > > the printer name to get or even just to imitate the press of OK
> > > > > > > for the
> > > > > > > default printer? Something like (DOS days) pushing a keypress onto
> > > > > > > the
> > key</font></i>
> > > > > > > stack before calling a routine which then gets the keypress &
> > > > > > > returns
> > with</font></i>
> > > > > > > no user input needed. A thought....
> > > > > >
> > > > > > I think I'd rather add a selectPrinter(objet printer) procedure. If
> > > > > > printer
> > > > > > is a sequence, it is a printer name string, and that will set
> > > > > > designated
> > printer</font></i>
> > > > > > as current printer. If name is unknown, fall back on
> > > > > > getPrinterChoice().
> > How</font></i>
> > > > > > about that?
> > > > > >
> > > > >
> > > > > CChris, what you suggest is excellent; it would cover all cases beyond
> > > > > maybe
> > > > > having a routine which returns a list of the names of the printers
> > > > > available.
> > > > > Since I only want the default that is not something I'd ask for. Not
> > > > > yet!
> > > > >
> > > > > I am content to wait for your doing this as and when you get around to
> > > > > it;
> > > > > it will be a useful upgrade to my code so I can do a Microsoft Word
> > > > > and just
> > > > >
> > > > > have a button which prints all by itself. Magic. I can use
> > > > > setPrintJobProperty()
> > > > > to do lots now with just a single click to accept the printer choice.
> > > > >
> > > > > > >
> > > > > > > I appreciate your work on Win32Lib enormously - as I do Derek's
> > > > > > > work
> and</font></i>
> > > > > > > I guess David Cuny's, who started it. You guys all want medals -
> > > > > > > or
> money</font></i>
> > > -</font></i>
> > > > > > > but not being Bill Gates's, you will get users complaining their
> > > > > > > model
> > railway</font></i>
> > > > > > > won't work right under Win32Lib or their printer keeps running out
> > > > > > > of
> ink</font></i>
> > > or</font></i>
> > > > > > > something silly like that.
> > > > > > >
> > > > > > > Tough life, isn't it. You do have many fans, though!
> > > > > > >
> > > > > > > AndyD
> > > > > >
> > > > > May I comment; when I said you guys all want medals etc, I meant
> > > > > DESERVE
> medals</font></i>
> > > > > not want as in desire.... no offence meant.
> > > > >
> > > > > >
> > > > > > I expect more complaints about printing for the weeks ahead
> > > > > > actually.
> > > > > > The lib had just so many print features that were offered, but
> > > > > > didn't
> work.</font></i>
> > > > > > As some start to, there will be more voices to ask for everything to
> > > > > > work
> > right</font></i>
> > > > > > out of the box, and I cannot test everything because I have one
> > > > > > computer
> > and</font></i>
> > > > > > two printers only (a laser and AdobePDF). That's why having a good
> > > > > > pool
> of</font></i>
> > > testers</font></i>
> > > > > > to catch issues before release would tremendously help.
> > > > > >
> > > > > > CChris
> > > > >
> > > > > Hopefully not too many complaints - just helpful criticism as we try
> > > > > and
> do</font></i>
> > > > > our job as testers. But it does sound like complaining to me though it
> > > > > is
> > > > > not meant that way..
> > > > >
> > > > > AndyD
> > > >
> > > > Replace at line 1272 in w32resources.ew the text for getDefaultPrinter()
> > > > by:
> > > > }}}
<eucode>
> > > > --/topic Printing
> > > > --/func getDefaultPrinter()
> > > > --/desc Like /getPrinter(), but assumes there is a default printer
> > > > already installed
> > > > --/ret (ATOM) DC for default printer
> > > > global function getDefaultPrinter()
> > > > printerDC = w32Func(xCreateDC,{wsp,pname,0,0})
> > > > setPrinterPointers(1)
> > > > return printerDC
> > > > end function
> > > > </eucode>
{{{
> > > >
> > > > Then, calling setPrintJobProperty() should update everything, but most
> > > > importantly
> > > > the printer itself. Let us know whether this is working better.
> > > >
> > > > CChris
> > >
> > > Line 1212 seems better - 1272 is in the middle of startPage(). I have put
> > > in
> > > the new version of getDefaultPrinter() code and I'll try it ASAP. Maybe it
> > > is
> > > just the testing version of Win32Lib I have now got.
> > >
> > > AndyD
> >
> > I just tried this but it seems no better. Here is the code I'm using; it
> > outputs in portrait mode to the printer.
> >
> > }}}
<eucode>
> > -- code generated by Win32Lib IDE v1.1.0 Build Oct-07-2007
> >
> > constant TheProgramType="exw"
> >
> > include Win32Lib.ew
> > without warning
> >
> >
> > --------------------------------------------------------------------------------
> > -- Window Window1
> > constant Window1 = createEx( Window, "Window1", 0, Default, Default, 400,
> > 300, 0, 0 )
> > constant PushButton2 = createEx( PushButton, "Print", Window1, 180, 120, 90,
> > 30, 0, 0 )
> > ---------------------------------------------------------
> >
> >
> > --------------------------------------------------------------------------------
> > procedure PushButton2_onClick (integer self, integer event, sequence
> > params)--params is ()
> > VOID = getDefaultPrinter()
> > -- VOID = setPrintJobProperty(JP_Orientation, DMORIENT_LANDSCAPE)
> > VOID = startDoc("fred")
> > VOID = startPage()
> > VOID = setPrintJobProperty(JP_Orientation, DMORIENT_LANDSCAPE)
> > wPuts(Printer, "This is output on the default printer!")
> > VOID = endPage()
> > VOID = endDoc()
> > releasePrinter()
> > abort(0)
> > end procedure
> > setHandler( PushButton2, w32HClick, routine_id("PushButton2_onClick"))
> >
> >
> > WinMain( Window1,Normal )
> > </eucode>
{{{
> >
> > Have I done something particularly daft? If not, have we any ideas?
> > AndyD
>
> Expected. Add the setPrinterPointers(1) call in getDefaultPrinter() and try
> it again.
>
> CChris
CChris, I *had* modified w32Resources.ew as you said. The actual code is:
global function getDefaultPrinter()
printerDC = w32Func(xCreateDC,{wsp,pname,0,0})
setPrinterPointers(1)
return printerDC
end function
That was copied direct from C:\Euphoria\Win32Lib\include\w32Resources.ew
I did say that I had put it into Win32Lib - about line 1212 in w32Resources.
So .... I carry on wondering what is going on! Or what I have done!!
AndyD
|
Not Categorized, Please Help
|
|
