Convert Text Reports to PDFs

I am currently doing something like this. I start with a blank 8½ x 11 PDFas a template. I load the logo then I draw the text. Page breaks are determined by line count or CHR(12) - which ever comes first. You will need to experiment a little with font and line height. When the page is full, use NewPage to begin the next page then load the logo and text and so on.

I could supply some sample source however it would be Delphi as I don’t speak fluent VB.

sb

This should get you started:

procedure TForm1.btnOverlayTextClick(Sender: TObject);

var   sl : TStringList;

      LogoName, pdfName, TextName, OutputName : string;

      i, LineIndex, ImageID : integer;

const

      MAX_LINES = 66;

      LINE_HEIGHT =15;

begin

      TextName := ExtractFilePath(Application.ExeName) + 'SampleInvoice.txt';

      pdfName := ExtractFilePath(Application.ExeName) + 'EmptyPage.pdf';

      LogoName := ExtractFilePath(Application.ExeName) + 'logo.jpg';

      OutputName := ExtractFilePath(Application.ExeName) + 'Output.pdf';

      if (FileExists(pdfName) and FileExists(TextName) and FileExists(LogoName) ) then

            begin

                  try

                  sl := TStringList.Create;

                  sl.LoadFromFile(TextName);

                  qPDF := TiSEDQuickPDF.Create;

                  qPDF.UnlockKey( MY_QDPF_KEY );

                  qPDF.LoadFromFile( pdfName );

                  ImageID := qPDF.AddImageFromFile( LogoName,0 );

                  qPDF.SetOrigin(1); // upper Left

                  Lineindex := 0;

                  for i := 0 to sl.Count -1 do

                        begin

                        if LineIndex = 0 then

                              begin

                              qPDF.SelectImage( ImageID );

                              qPDF.DrawImage(10,5,150,100);

                              end;

                        qPDF.DrawText(10, LineIndex  * LINE_HEIGHT, sl[LineIndex]);

                        if (pos(#12,sl[LineIndex]) > 0) or (LineIndex >= MAX_LINES) then

                              begin

                              if LineIndex < (sl.Count - 1) then

                                    qPDF.SelectPage(qPDF.NewPage);

                              LineIndex := 0;

                              end

                        else begin

                              LineIndex := Lineindex + 1;

                              end;

                        end;

                  qPdf.SaveToFile(OutputName);

                  finally

                        qPDF.Free;

                        sl.Free;

                  end;

            end;

end;