Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Dimster on December 29, 2021, 01:16:01 pm

Title: S_PRINT, E_PRINT
Post by: Dimster on December 29, 2021, 01:16:01 pm
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??
Title: Re: S_PRINT, E_PRINT
Post by: Petr on December 29, 2021, 04:44:06 pm
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 :)
Title: Re: S_PRINT, E_PRINT
Post by: Petr on December 29, 2021, 05:03:14 pm
@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
  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
  17.     Print "Source code: "; Source$; " not found.": End
  19. Print "Source file reading done, printig rows from "; Start; " to"; EEnd
  20.  
  21. For Pr = 0 To UBound(PrintRows)
  22.     LPrint PrintRows(Pr)
  24.  

in begin insert inputs in format:

Example.bas,50,330         

It is source file name, start row, end row. Works fine for me.
Title: Re: S_PRINT, E_PRINT
Post by: Dimster on December 30, 2021, 09:32:18 am
@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??
Title: Re: S_PRINT, E_PRINT
Post by: Petr on December 30, 2021, 09:43:25 am
@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
  29.  
Title: Re: S_PRINT, E_PRINT
Post by: Dimster on December 30, 2021, 11:35:09 am
Of course - thank you.
Text Only | Text with Attachments