LB Booster - printing to printer

LB Booster

Programming

Liberty BASIC language (Moderator: Richard Russell)

printing to printer

« Previous Topic | Next Topic »

Pages: 1 2

Author

Topic: printing to printer (Read 1921 times)

hammerjit
New Member

member is offline

Posts: 26

printing to printer
« Thread started on: Jun 18^th, 2015, 08:33am »

Hi, can someone help me out here. I want to print data from a text file. Imagine my data file is like this

0, Start, 0, 0, 0
P, Jones, Joyce, 22, 5.6
P, Newman, Bill, 26, 0.35
P, Abercrombe, Tom Cruise, 35, 1254.25
P, Belton, Mindy, 28, 1245687.8
P, Doyle, Barbara, 15, 1040.05

Now, the output on paper would be

(skip the line with "Start") and only print records which begins with "P"
Jones (tab) 22 (tab) 5.60
Newman (tab) 26 (tab) 0.35
and so on

Can someone guide me please? Thanks

Logged

tsh73
Full Member

member is offline

Gender:

Posts: 210

Re: printing to printer
« Reply #1 on: Jun 18^th, 2015, 09:02am »

Code:

data 0, Start, 0, 0, 0
data P, Jones, Joyce, 22, 5.6
data P, Newman, Bill, 26, 0.35
data Z, Abercrombe, "Tom Cruise", 35, 1254.25
data P, Belton, Mindy, 28, 1245687.8
data P, Doyle, Barbara, 15, 1040.05

for i = 1 to 6
    'read line
    read a1$, a2$, a3$, n1, n2
    'print line
    if a2$ = "Start" then [skip]

    if a1$ <> "P" then [skip]

        print a2$,n1,n2
        'same to printer
        lprint a2$,n1,n2
[skip]
next

Logged

Rod
Full Member

member is offline

Gender:

Posts: 110

Re: printing to printer
« Reply #2 on: Jun 18^th, 2015, 09:37am »

Adding to that you can get a bit fancier with a graphicbox print. This is the printform.bas example tweaked a little.

Code:

    open "test.txt" for output as #t
    #t "0,Start, 0, 0, 0"
    #t "P,Jones,Joyce,22,5.6"
    #t "P,Newman,Bill,26,0.35"
    #t "P,Abercrombe,Tom Cruise,35,1254.25"
    #t "P,Belton,Mindy,28,1245687.8"
    #t "P,Doyle,Barbara,15,1040.05"
    close #t
    open "test.txt" for input as #t






    'printform.bas
    'This example program shows how to use a graphics window to produce
    'printable form without using PCL or graphics characters.  Different
    'fonts and colors are used.

    nomainwin
    WindowWidth = 800
    WindowHeight = DisplayHeight
    open "Printable Form" for graphics as #form
    #form "trapclose [quit]"

    #form "down"
    #form "backcolor 220 220 220"
    #form "size 2"
    #form "place 1 1 ; boxfilled 700 110"
    #form "font arial 16 bold"

    #form "place 20 34"
    #form "\Software Mail-in Order Form"
    #form "font arial 10"
    #form "\Mega2 Super Corporation\PO Box 1029391\Industrialtown, PA 11701\"

    #form "backcolor white"
    #form "place 1 110"
    #form "boxfilled 700 471"

    #form "place 1 471"
    #form "boxfilled 700 970"

    #form "color black ; place 20 490 ; font courier new"
    while eof(#t)=0
    line input #t,t$
    if left$(t$,1)="P" then
    p$=left$(trim$(word$(t$,2,","))+space$(24),24)
    p$=p$+left$(trim$(word$(t$,3,","))+space$(24),24)
    p$=p$+left$(trim$(word$(t$,4,","))+space$(4),4)
    p$=p$+using("########.##",val(word$(t$,5,",")))
    #form "\";p$
    end if
    wend

    #form "flush"
    confirm "Send to printer?"; answer
    if answer then #form "print svga"
    wait
    close #form
    close #t
    end



[quit]
    close #form
    close #t
    end

Logged

Richard Russell
Administrator

member is offline

Posts: 1348

Re: printing to printer
« Reply #3 on: Jun 18^th, 2015, 11:05am »

on Jun 18^th, 2015, 09:37am, Rod wrote:

Adding to that you can get a bit fancier with a graphicbox print.

Not necessarily such a good idea with LBB. Because (unlike LB/JB) you can change attributes - bold, italics etc. - within a page I would normally recommend that text only printout be done using LPRINT - not least because then there's no need to display the output on the screen first!

Only if you want to mix text and graphics would I use the printform technique, and not necessarily even then, because in LBB you can mix both kinds of output on the same sheet (use the NODUMP qualifier with the PRINT command).

Richard.

Logged

tsh73
Full Member

member is offline

Gender:

Posts: 210

Re: printing to printer
« Reply #4 on: Jun 18^th, 2015, 11:47am »

Quote:

Because (unlike LB/JB) you can change attributes - bold, italics etc. - within a page

Richard, could you give an example or point where it is described?

EDIT found it by search for "LPRINT" at "New features" at Help file

« Last Edit: Jun 18^th, 2015, 11:52am by tsh73 »

Logged

hammerjit
New Member

member is offline

Posts: 26

Re: printing to printer
« Reply #5 on: Jun 19^th, 2015, 06:22am »

thanks tsh73, got my code to work with your help.

Just a quick question, is there a command to forced printout on landscape mode without user interaction?

Logged

tsh73
Full Member

member is offline

Gender:

Posts: 210

Re: printing to printer
« Reply #6 on: Jun 19^th, 2015, 07:13am »

Quote:

is there a command to forced printout on landscape mode without user interaction?

I have no idea but search at Liberty Basic forum returned this thread
Landscape Printing

Logged

Richard Russell
Administrator

member is offline

Posts: 1348

Re: printing to printer
« Reply #7 on: Jun 19^th, 2015, 09:22am »

on Jun 19^th, 2015, 06:22am, hammerjit wrote:

is there a command to forced printout on landscape mode without user interaction?

It's a bit of a kludge, but you could use the published BBC routine and add the 'BBC BASIC escape' character to every line:

Code:

SUB landscape
!LOCAL psd%, dm%
!DIM psd% LOCAL 83
!!psd% = 84
!psd%!16 = 1024
!SYS "PageSetupDlg", psd%
!SYS "GlobalLock", psd%!8 TO dm%
!dm%!40 = 1
!dm%?44 = 2
!SYS "ResetDC", @prthdc%, dm%
!SYS "GlobalUnlock", psd%!8
!SYS "GlobalFree", psd%!8
!SYS "GlobalFree", psd%!12
!*MARGINS 10,10,10,10
END SUB

Richard.

Logged

hammerjit
New Member

member is offline

Posts: 26

Re: printing to printer
« Reply #8 on: Jun 23^rd, 2015, 01:57am »

Thanks Richard...it works

Logged

Richard Russell
Administrator

member is offline

Posts: 1348

Re: printing to printer
« Reply #9 on: Jun 23^rd, 2015, 05:47am »

In an ideal world there should be some way of setting, in code, all the things that the user can set using PAGESETUPDIALOG (i.e. the paper size, orientation and margins). Can anybody think of a sensible syntax for this?

Richard.

Logged

tsh73
Full Member

member is offline

Gender:

Posts: 210

Re: printing to printer
« Reply #10 on: Jun 23^rd, 2015, 07:00am »

Quote:

Can anybody think of a sensible syntax for this?

Named parameters, like in VBA?
Not listed get default values.
If position accept list, like list of pages, let it be string "1-5, 7, 9".

Or just one big string with named parameters list inside
("pages = 1-5, 7, 9 ; orientation = landscape; leftMargin = 1.5 cm")

« Last Edit: Jun 23^rd, 2015, 07:01am by tsh73 »

Logged

Richard Russell
Administrator

member is offline

Posts: 1348

Re: printing to printer
« Reply #11 on: Jun 23^rd, 2015, 11:36am »

on Jun 23^rd, 2015, 07:00am, tsh73 wrote:

Or just one big string with named parameters list inside
("pages = 1-5, 7, 9 ; orientation = landscape; leftMargin = 1.5 cm")

So, for consistency with other LB printer settings, you are proposing something like:

Code:

PrinterSetup$ = "orientation = landscape; leftMargin = 1.5 cm"

Richard.

Logged

tsh73
Full Member

member is offline

Gender:

Posts: 210

Re: printing to printer
« Reply #12 on: Jun 23^rd, 2015, 12:16pm »

well, kind of.
May be - for consistency with LB GUI commands - get rid of "=", so it becames
Code:

PrinterSetup$ = "orientation landscape; leftMargin 1.5 cm"

Logged

Richard Russell
Administrator

member is offline

Posts: 1348

Re: printing to printer
« Reply #13 on: Jun 23^rd, 2015, 3:57pm »

on Jun 23^rd, 2015, 12:16pm, tsh73 wrote:

May be - for consistency with LB GUI commands

I think I'd be inclined to simplify even further:

Code:

    PrinterName$ = "DoPDF v7"
    PrinterFont$ = "Arial 12 bold"
    PrinterColor$ = "blue"
    PrinterSetup$ = "landscape 15 10 10 10"

I should add that at present I have no plans for a new release of LBB but I'll make a mental note of the possibility of such additions should the atmosphere change.

Richard.

Logged

tsh73
Full Member

member is offline

Gender:

Posts: 210

Re: printing to printer
« Reply #14 on: Jun 23^rd, 2015, 4:18pm »

Code:

    PrinterName$ = "DoPDF v7"
    PrinterFont$ = "Arial 12 bold"
    PrinterColor$ = "blue"
    PrinterSetup$ = "landscape 15 10 10 10"

Doesn't it look like too many reserved words?

Logged

Pages: 1 2


« Previous Topic \| Next Topic »