S_PRINT, E_PRINT

[Dimster]

I know from reading past threads that messing with the PRINT statement can be very dicey but if there is ever a consideration to expand on LPRINT I think it would be useful to have a way to sending large sections of your code to the printer. At the present time, to send a section of my code to the printer, I highlight the section and copy/paste it back with new lines in the program I'm coding. Then change the beginning of each line with LPRINT. In this way I get a hard copy of the code on the screen. But where the screen can only show me so many lines the hard copy provides lines of code not displayed. It is a pain in the butt to do all the highlighting, copy/paste and rewording the beginning of each line with LPRINT. Maybe you guys or girls have a better way to send a large section of code to the printer???

Anyway, the thought occurred to me while debugging, it may be helpful to have something like a command "S_PRINT" that you would place at the start of the lines to print and "E_PRINT" where you want the printing to End. I wonder if that approach might be easier than trying to add a Print option to highlighted sections of code??

[Petr]

Hi.
 Try _PRINTIMAGE.

Simply use the graphic commands to first paint the entire form on the monitor the way you want it to be printed (including fonts and rectangular input fields, including background images) and then send the result to the printer with this command. Don't forget to set a white background :)

[Petr]

@Dimster

For printing your source codes in printer try this program:

Code: QB64: [Select]

1. Print "Source code printer. Input BAS source file name, start and end row to print at printer [" + Chr$(34) + "example.bas" + Chr$(34) + ", 50, 300]"
2. Input Source$, Start, EEnd
3. Dim PrintRows(EEnd - Start) As String
4. If _FileExists(Source$) Then
5.     f = FreeFile
6.     Open Source$ For Input As #f
7.     While Not EOF(f)
8.         Line Input #f, text$
9.         row = row + 1
10.         If row >= Start And row <= EEnd Then
11.             PrintRows(i) = text$
12.             i = i + 1
13.             Print text$
14.         End If
15.     Wend
16. Else
17.     Print "Source code: "; Source$; " not found.": End
18. End If
19. Print "Source file reading done, printig rows from "; Start; " to"; EEnd
20.  
21. For Pr = 0 To UBound(PrintRows)
22.     LPrint PrintRows(Pr)
23. Next
24.  

in begin insert inputs in format:

Example.bas,50,330         

It is source file name, start row, end row. Works fine for me.

[Dimster]

@Petr - Just rolled out of bed and found your code. Thanks for same. Going to get a coffee and play with it today. Keeping in mind I'm still not completely awake, is there a way to use a command similar to _Debug, where you insert the command and it automatically would attach your code to the program I'm writing??

[Petr]

@Dimster
Hi, yes. For easy use, rewrite it as SUB:

Code: QB64: [Select]

1. SLPRINT "Untitled.bas", 1, 28 'print this source code
2.  
3. Sub SLPRINT (Source$, Start, EEnd)
4.     '    Print "Source code printer. Input BAS source file name, start and end row to print at printer [" + Chr$(34) + "example.bas" + Chr$(34) + ", 50, 300]"
5.     '    Input Source$, Start, EEnd
6.     Dim PrintRows(EEnd - Start) As String
7.     If _FileExists(Source$) Then
8.         f = FreeFile
9.         Open Source$ For Input As #f
10.         While Not EOF(f)
11.             Line Input #f, text$
12.             row = row + 1
13.             If row >= Start And row <= EEnd Then
14.                 PrintRows(i) = text$
15.                 i = i + 1
16.                 Print text$
17.             End If
18.         Wend
19.    Close #f
20.   Else
21.         Print "Source code: "; Source$; " not found.": End
22.     End If
23.     '    Print "Source file reading done, printig rows from "; Start; " to"; EEnd
24.  
25.     For Pr = 0 To UBound(PrintRows)
26.         LPrint PrintRows(Pr)
27.     Next
28. End Sub
29.  

[Dimster]

Of course - thank you.