Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
SET DEVICE TO PRINT and still printing also on screen
Message
From
11/08/2010 16:39:59
 
 
To
11/08/2010 16:33:23
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01476264
Message ID:
01476278
Views:
33
I added the getprinter() since you already had the PROMPT clause added. Simply use the ??? command.

>Tore,
>
>understand, But actualy I was not looking for an other prompt so if no other elegant solution I shall make a report with one memo field and dump the thing overthere. Just had a vague recall from former (maybe DOS) days one could send a file to the printer and not (also) to the screen.
>Actualy I was avoiding this as this particular application should be with minimal components: 1PRG, 1VCX and 1VCT, 1 BMP now I wil add 1FRX and 1FRT
>
>Regards,
>
>Koen
>
>>Sorry, I have a bad day today. This is how I do it in one of my applications:
>>lcPrinter=getprinter()
>>if !empty(lcPrinter)
>>   set printer to (lcPrinter)
>>   lcText=filetostr(lcFile)
>>   ???lcText
>>endif
>>
>>>Tore,
>>>
>>>with
>>>set echo off
>>>set device to printer
>>>type (lcFile) to printer prompt  && or without prompt
>>>
>>>
>>>it 'types / echoes' to both devices!
>>>
>>>Any more solutions?
>>>
>>>Regards,
>>>
>>>Koen
>>>
>>>
>>>
>>>
>>>>Add NOCONSOLE. And you should also use a name expression instead of the & macro
>>>>type (lcFile) to printer noconsole prompt
>>>>
>>>>Update! Noconsole is not supported for TYPE, but you can use SET ECHO OFF.
>>>>
>>>>>Hi.
>>>>>
>>>>>(VFP9 SP2)
>>>>>
>>>>>Today is not my day (I suppose)
>>>>>
>>>>>I would like to print a log file directly to the printer, no reportform, just 'dump' the file on paper.
>>>>>
>>>>>
>>>>>set device to printer
>>>>>type &lcFile to printer prompt 
>>>>>set device to screen
>>>>>
>>>>>
>>>>>File get's nicely printed but also the screen which I dont want, I seem to have forgotten how to suppress this.
>>>>>
>>>>>Turned the helpfile inside out, looked everywhere. No luck.
>>>>>How to do this?
>>>>>
>>>>>Regards,
>>>>>
>>>>>Koen
Previous
Reply
Map
View

Click here to load this message in the networking platform