' MacroName: ShiftF1
' MacroDescription: Print Libs+ screen 
' Macro written by: Joel Hahn, Niles Public Library District
' Derived from: OCLC's PrintRecord macro

sub main
   dim CS as Session
   set CS = CurrentSession
   Dim CheckDiatritic as Integer

   ' Determine how many columns are in the record
     Columns% = CS.FDXColumns
   
      ' Get text to be printed
      Row% = CS.GetLastRowUsed

      CS.GetTextInRegion Temp$, 1, 1, Row%, Columns%, TRUE

   ' Find & replace non-standard characters
      StrLen%=Len(Temp$)
      For CheckDiacritic=1 to StrLen%
        Char$=Mid$(Temp$, CheckDiacritic, 1)
        Result%=Asc(Char$)

        If Result%>127 Then
         Select Case Result%
           Case 179
              Mid(Temp$, CheckDiacritic, 1)="|"
            Case 191
              Mid(Temp$, CheckDiacritic, 1)="+"
            Case 192
              Mid(Temp$, CheckDiacritic, 1)="+"
            Case 194
              Mid(Temp$, CheckDiacritic, 1)="+"
            Case 196
              Mid(Temp$, CheckDiacritic, 1)="-"
            Case 217
              Mid(Temp$, CheckDiacritic, 1)="+"
            Case 218
              Mid(Temp$, CheckDiacritic, 1)="+"
            Case Else
              Mid(Temp$, CheckDiacritic, 1)="*"
          End Select
        End If
     Next CheckDiacritic

    ' Create final text string
      Buffer$ = Buffer$ + Temp$

  ' If there is content in the string, then print; else report failure
    if Buffer$ <> "" then
      PrintBuffer Buffer$
      SetStatusMessage "Printing..."
    else
      SetStatusMessage "Unable to print record."
    end if
end sub