function fnPrintviaComputerPrinter(slPrinterCommands : TStrings; sPrintername, sDocumentName : String) : Boolean;

var
  hPrinter : THandle;
  kDocInfo : TDocInfo1;
  i : Integer;
  dwWritten : DWord;
  sRec : String;
  StringList : TStrings;

begin

  //Set Result
  Result := False;

  //Try with Printer from Function Call
  If Not WinSpool.OpenPrinter(PChar(sPrintername), hPrinter, nil) Then
  Begin
    //Try with Windows Default Printer
    Printer.PrinterIndex := -1;
     If Not WinSpool.OpenPrinter(PChar(Printer.Printers[Printer.PrinterIndex]), hPrinter, nil) Then Exit;
  End;

  //Spool Output Settings
  Try
    With kDocInfo Do
    Begin
      pDocName := PChar(sDocumentName);
      pOutputFile := nil;
      pDatatype := 'RAW';
      //pDatatype := 'TEXT'; --> only for FreePDF
    End;

    //Send Printer Commands to the Printer
    If (StartDocPrinter(hPrinter,1,@kDocInfo) = 0) Then Abort;
    Try
      For i := 0 to slPrinterCommands.Count -1 do
      Begin
        sRec := slPrinterCommands.Strings[i] + #13+#10;
        Result := WritePrinter(hPrinter,PAnsiChar(AnsiString(sRec)),Length(sRec),dwWritten);
        If Not Result Then Abort;
      End;
      Result := true;
    Finally
      EndPagePrinter(hPrinter);
    End;

  Finally
    EndDocPrinter(hPrinter);
    WinSpool.ClosePrinter(hPrinter);
  end;

  //Set Result
  Result := True;

end;