PB Editor, print command
Posted: Sun Feb 26, 2006 12:23 pm
it's not a big issue or a problem any way. but it will be good if we can print source code within the editor(almost all ide have this command in file menu)
Compile the source code to an .exe file.
From the PB IDE take the menu path Tools -> Configure Tools -> New
Fill in details as follows:
Command line = Pathname to the .exe file (preferably in double quotes, but this may cause a 'Memory Write' error)
Arguments = "%TEMPFILE"
Name = Print Source Code
Event = Menu or Shortcut
Tick only the box 'Wait until tool quits'
To print your source code, ensure the printer is online then take the menu path Tools -> Print source Code
Here is the program to be compiled:
Code: Select all
; PrintFile AKJ 15-Mar-06
; Print a text file whose path is given as the command line parameter
; Lines too wide for the page are cut and resulting overflow lines prepended with "¬"
;{ Constants
#program$="PrintFile"
#version$="1.1"
#file=1
; The following constants may be edited by the user:
#gap=5 ; Vertical gap (leading) in pixels between print lines
#Lmargin=200 ; Left hand margin in pixels
#Rmargin=100 ; Right margin in pixels
#Tmargin=200 ; Top margin in pixels
#Bmargin=0 ; Bottom margin in pixels
#indent=0 ; Additional left indentation in pixels for non-empty overflow lines
#continue$="¬" ; Continuation character shown at the start of non-empty overflow lines
;}
;{ Declarations
Declare PrintLine(ln$, indent, lineh, lpp)
EnableExplicit
Define pagew, pageh, lineh, lpp
Define path$, ln$, indent, cut, p, tmp$, indent$
;}
;{ Get text file's pathname
path$ = ProgramParameter()
If path$ = "": End: EndIf ; Quit without error message
If FileSize(path$)<=0: : End: EndIf ; Quit without error message
;}
;{ Initialise printer and get printer metrics
If DefaultPrinter()=0
MessageRequester(#program$+" Error", "Cannot open default printing device")
End
EndIf
StartPrinting("Text File")
pagew=PrinterPageWidth()-#Lmargin-#Rmargin
pageh=PrinterPageHeight()-#Tmargin-#Bmargin
StartDrawing(PrinterOutput())
; !!! DrawingFont(LoadFont(0, "Arial", 10))
lineh=TextHeight("bgj_~QX")+#gap
lpp=(pageh+#gap)/lineh ; Lines that will fit on a page
;}
;{ Print the file
If ReadFile(#file, path$)=0: End: EndIf ; Quit without error message
While Not Eof(#file)
ln$=RTrim(ReadString(#file)) ; Preserve any whitespace on the left
indent=0 ; Indentation (if any) beyond the left margin
; Does the line need to be split because it is too long for the page width?
Repeat
If TextWidth(ln$)<=pagew-indent ; If line will fit on page
PrintLine(ln$, indent, lineh, lpp)
ln$=""
Else ; Line too wide for page
cut=Len(ln$) ; Point [just before] where the line will eventually be cut
Repeat ; Large steps
cut-12 ; New trial cut point
Until TextWidth(Left(ln$,cut))<=pagew-indent ; Until it will fit
cut+12
Repeat ; Small steps
cut-1 ; New trial cut point
Until TextWidth(Left(ln$,cut))<=pagew-indent ; Until it will fit
; Try not to split the last word, except at a hyphen
For p=cut To cut-12 Step -1
If FindString(" -"+#TAB$, Mid(ln$,p,1), 1) ; If whitespace or hyphen
Break ; Found a better cut point
EndIf
Next p
If p>=cut-12: cut=p: EndIf ; If a better cut point was found
; Now print and cut the line, removing trailing whitespace
tmp$=RTrim(Left(ln$, cut))
If indent ; If an overflow line
If Len(tmp$) ; Do not print empty overflow (indented) lines
PrintLine(tmp$, indent, lineh, lpp)
EndIf
Else ; Not an overflow line
indent$=Left(tmp$, Len(tmp$)-Len(LTrim(tmp$))) ; Remember the leading whitespace
PrintLine(tmp$, indent, lineh, lpp) ; Print, even if empty
indent=#indent ; Indentation (if any) beyond the left margin
EndIf
ln$=LTrim(Mid(ln$,cut+1,9999)) ; Build the overflow line
If Len(ln$): ln$=indent$+#continue$+ln$: EndIf ; Prepend the same leading whitespace
EndIf
Until Len(ln$)=0
Wend
;}
;{ Windup
CloseFile(#file)
StopDrawing()
StopPrinting()
End
;}
Procedure PrintLine(ln$, indent, lineh, lpp)
Static line=0 ; Lines printed on the current page
Static y=#Tmargin ; Vertical print position
DrawText(#Lmargin+indent, y, ln$) ; "Print" the line
line+1: y+lineh
If line>=lpp ; If the current page is full
line=0: y=#Tmargin
NewPrinterPage()
EndIf
EndProcedure