On Wed, 03 Jun 2009, Sudip Bhattacharyya wrote:
Hi,
> >Maybe I'm wrong but I have serious doubts about it.
> > SET PRINTER TO
> >closes printer file and should always flush the buffers.
> >I rather think it was a typo in your tests or sth like that.
> You are ABSOLUTELY CORRECT :-)
> Problem wa
On Wed, 03 Jun 2009, Szak�ts Viktor wrote:
> > I used the commands in following sequence:
> > SET PRINTER TO
Here printer file is closed.
> > SET DEVICE TO SCREEN
Only marks that next DEVOUT() should be redirected to screen.
Has no effect on output and open handles.
> > Set(_SET_PRINTFILE, "")
Hello Przemek
>Maybe I'm wrong but I have serious doubts about it.
> SET PRINTER TO
>closes printer file and should always flush the buffers.
>I rather think it was a typo in your tests or sth like that.
You are ABSOLUTELY CORRECT :-)
Problem was due to sequence of commands. My final "problem
Thank you for posting your results.
Brgds,
Viktor
On Wed, Jun 3, 2009 at 4:14 PM, Sudip Bhattacharyya wrote:
>
> Hello Victor,
>
> I am now confirmed about my doubt :-)
>
> My final "problem free" demo sample is:-
>
> FUNCTION Main()
> LOCAL nChar := ASC( "A" )
> CLEAR SCREEN
> SET DEVICE
On Wed, 03 Jun 2009, Sudip Bhattacharyya wrote:
Hi,
> >And probably only this line was important to force flushing print buffer
> >before key press.
> >Try to remove from your code:
> > SET PRINTER TO DEMO.TXT// this line is added
> >and:
> > ! COPY DEMO.TXT PRN
Hello Victor,
I am now confirmed about my doubt :-)
My final "problem free" demo sample is:-
FUNCTION Main()
LOCAL nChar := ASC( "A" )
CLEAR SCREEN
SET DEVICE TO PRINTER
SETPRC( 0, 0 )
DO WHILE nChar <= ASC( "Z" )
@ PROW() + 1, 0 SAY REPLICATE( CHR( nChar ), 75 )
nCha
> I used the commands in following sequence:
>
> SET PRINTER TO
> SET DEVICE TO SCREEN
> Set(_SET_PRINTFILE, "") // This line added
> // !COPY DEMO.TXT PRN // This line I commented while testing now
Okay, thank you, that might explain the difference.
This may signal a Harbour problem, but I can
Hello Massimo Belgrano,
> can you write and article about your experience i will translate it in
> itallian for upcoming italian harbour cominity
> Thanks in advance
Yes, of course. To be more specific, shall I write it about this printing
problem?
> http://www.gio22.com/harbour/
> i invite eve
Hi Viktor,
> It's still a little bit strange as 'Set( _SET_PRINTFILE, "" )' is the
> exact
> synonym of 'SET PRINTER TO', so I wonder what else could have
> caused the difference in your results.
I used the commands in following sequence:
SET PRINTER TO
SET DEVICE TO SCREEN
Set(_SET_PRINTFILE,
can you write and article about your experience i will translate it in
itallian for upcoming italian harbour cominity
Thanks in advance
http://www.gio22.com/harbour/
i invite everybody that have also incomplete information regarding
harbour share here or mail me
2009/6/3 Sudip Bhattacharyya :
>
>
Hi Sudip,
Glad it works!
It's still a little bit strange as 'Set( _SET_PRINTFILE, "" )' is the exact
synonym of 'SET PRINTER TO', so I wonder what else could have
caused the difference in your results.
Brgds,
Viktor
On Wed, Jun 3, 2009 at 3:26 PM, Sudip Bhattacharyya wrote:
>
> Hello Victor,
>
Hello Victor,
This the best solution
I used :-
Set( _SET_PRINTFILE, "" )
And everything is ok :-) (No pause of printing before quitting of program)
This am waiting for this solution for a long time.
Thank you all again :-)
With best regards.
Sudip
--
View this message in context:
http:/
Hi,
>And probably only this line was important to force flushing print buffer
>before key press.
>Try to remove from your code:
> SET PRINTER TO DEMO.TXT// this line is added
>and:
> ! COPY DEMO.TXT PRN// this line is added
>leaving only 'SET PRINTER TO' a
On Tue, 02 Jun 2009, Sudip Bhattacharyya wrote:
Hi,
> Hello Pritpal,
> Sorry! :-( (I couldn't imagine, you really want see those negligible
> changes)
> And thank you very much for your asking :-)
> Here it is :-
> FUNCTION Main()
>LOCAL nChar := ASC( "A" )
>CLEAR SCREEN
>SET DEVICE T
Hello Victor,
Sorry! :-( (I couldn't imagine, you really want see those negligible
changes)
And thank you very much for your asking :-)
Here it is :-
FUNCTION Main()
LOCAL nChar := ASC( "A" )
CLEAR SCREEN
SET DEVICE TO PRINTER
SET PRINTER TO DEMO.TXT
SETPRC( 0, 0 )
DO WHILE n
Hello Sudip
Sudip Bhattacharyya wrote:
>
> Thank you very much for very quick reply and it solved the problem. :-)
>
You did not mention how your problem was solved.
It is always nice to repost the code with "solved" amendments
so that anybody else could grasp it properly.
Regards
Pritpal Be
Hello Victor,
Thank you very much for very quick reply and it solved the problem. :-)
>To reduce the problem and sort out Harbour from the equation,
>you can try saving the output stream to a file, and send it
>to the port directly:
> copy output.txt PRN:
>And see if it hangs.
I used this in
>> These solutions target _no printing_, while Sudip says
>> he's getting hangs, so maybe he has a different issue,
>> but for sure SET PRINTER TO must be added before
>> looking any further.
>
> hmm?...
> Another possibility is that don't have associated printer with the port LPT1
> or network res
Ok thanks Viktor,
These solutions target _no printing_, while Sudip says
he's getting hangs, so maybe he has a different issue,
but for sure SET PRINTER TO must be added before
looking any further.
hmm?...
Another possibility is that don't have associated printer with the port LPT1 or
networ
Hi Xavi,
What you say is true even for Clipper programs if there is
some sort of redirector (like Novell's and whatnot),
so you had to do the same trick in Clipper too to make your
app work in every environment, I remember this code from
Phil which flushes printers in an aggressive way:
Set( _SE
Viktor,
Remember that Clipper running on Xp under WoW and the time of printing is
controlled by the registry variable .-
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOW\LPT_timeout = x
But now Harbour in Xp is Win32 and release when you close the print handler.
This is the importan
Thank you very much. I am now able to run win_prn() :-)
You're welcome.
But I cannot solve my initial problem with simple Clipper type text
printing
with DMP (printer halts).
Here is a sample for it :-
To reduce the problem and sort out Harbour from the equation,
you can try saving the out
Hi Victor,
Thank you very much. I am now able to run win_prn() :-)
But I cannot solve my initial problem with simple Clipper type text printing
with DMP (printer halts).
Here is a sample for it :-
FUNCTION Main()
LOCAL nChar := ASC( "A" )
CLEAR SCREEN
SET DEVICE TO PRINTER
SETPRC( 0,
Thanks Victor,
I downloaded the previous version of sourcecode. Now I downloaded Nightly
Version source of Harbour.
Regards.
Sudip
Viktor Szakáts wrote:
>
>> I downloaded harbour source and compiled. But didn't find hbwin
>> library. But
>> I found this library within C:\harbour_dev\harbo
I downloaded harbour source and compiled. But didn't find hbwin
library. But
I found this library within C:\harbour_dev\harbour\bcc\lib, but here
I can't
find hbw32.lib. But I find hbw32lib in harbour. I copied a sample
(and the
library) from there and test win32prn with Harbour-dev. It runs
Hi,
I downloaded harbour source and compiled. But didn't find hbwin library. But
I found this library within C:\harbour_dev\harbour\bcc\lib, but here I can't
find hbw32.lib. But I find hbw32lib in harbour. I copied a sample (and the
library) from there and test win32prn with Harbour-dev. It runs
Hi Victor,
I downloaded (harbour source), and build. But it's not there. Finally I
copied from Harbour_dev :-)
Regards.
Sudip
--
View this message in context:
http://www.nabble.com/Printing-Problem-tp23696757p23705896.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_
You have a few choices, I suggest to go to our sf.net
page (also linked from harbour-project.org) and look for
Code / SVN menu.
If you downloaded the source, look into INSTALL doc
for more.
Brgds,
Viktor
On 2009.05.25., at 5:09, Sudip Bhattacharyya wrote:
Hello Xavi,
Thank you for your inte
Hi Sudip,
It's part of Harbour, so simply get Harbour and build it.
Brgds,
Viktor
On 2009.05.25., at 5:12, Sudip Bhattacharyya wrote:
Hello Massimo Belgrano,
Thanks a lot.
How can I get hbmake2 ?
Regards.
Sudip
--
View this message in context:
http://www.nabble.com/Printing-Problem-tp2
Hello Massimo Belgrano,
Thanks a lot.
How can I get hbmake2 ?
Regards.
Sudip
--
View this message in context:
http://www.nabble.com/Printing-Problem-tp23696757p23700597.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
___
Harb
Hello Xavi,
Thank you for your interest.
>Try this with the latest SVN .-
How can I get latest SVN? (Sorry for my silly question ;) )
Regards.
Sudip
--
View this message in context:
http://www.nabble.com/Printing-Problem-tp23696757p23700562.html
Sent from the Harbour - Dev mailing list arc
If you want compile a sample who contain win32prn you can do
hbmk2 test1.prg -lhbwin
hbmk2 is powerfull harbour Tool that allow compile sample and large project
basic use of this tools is
hbmk2 ac_test
hbmk2 ac_test.prg
After this command you have ac_test.exe created
You can also immediaply execu
Hi Sudip,
Welcome to Harbour.
> My another question is, how can I use Windows Printing (like I did with
> win32prn in xHarbour) in Harbour?
You can continue to use win32prn class in Harbour if you
link in hbwin library (although the native name of this class
in Harbour is win_Prn()). If you use
Sudip,
Try this with the latest SVN .-
FUNCTION Main()
LOCAL nChar := ASC( "A" )
CLEAR SCREEN
SET DEVICE TO PRINTER
SETPRC( 0, 0 )
DO WHILE nChar <= ASC( "Z" )
@ PROW() + 1, 0 SAY REPLICATE( CHR( nChar ), 75 )
nChar ++
ENDDO
EJECT
SET PRINTER TO // Print *now* in Win!
Hi All,
I am a very new user of Harbour. I found that during printing with Lpt1 DMP,
printing halts sometimes, which I didn't face when working with
xHarbour+gtwvw.
Here is a sample which will show want I want to mean:-
FUNCTION Main()
LOCAL nChar := ASC( "A" )
CLEAR SCREEN
SET DEVICE TO
Hi all:
I try this .prg over an epson lx300 on lpt1
test.prg
set print on
? "hello world",hb_version()
set print off
quit
end
I no obtain any print result
but if I try
test.prg
set printer to prn
set print on
? "hello world",hb_version()
set print off
quit
end
I obtain a
36 matches
Mail list logo
