How to create easy and fast PDF Documents

Creating PDF

  There are many pdf writers on the market but, unfortunately, all are shareware. This waiting time is now finished, because I have find the most easiest to use pdf writer and, best of all, it is completely freeware (with source code). The component is developed by K. Nishita and you can download it from here.
  Let's see how to write a simple PDF document. Put a Memo component on a form, a TImage and a button. Write something into memo and load a image. We will create a simple document with text and image. On the Click event of the button we will write our PDF creation code:

procedure TForm1.Button1Click(Sender:TObject);
var
   p:TPrintPDF;
begin
//First create a Pdf object
p:=TPrintPDF.Create(Self);
with p do
   begin

   FileName:='c:\test.pdf';//the name of the PDF file

   Title:='The PDF Demo';//set document's title

   //Now set page width/height
   PageWidth:=600;
   PageHeight:=700;

   BeginDoc; //Start Document

   LineWidth:=1; //Set Line
   //Set Font
   Font.Name:=poTimesRoman;
   Font.Size:=12;

   MemoOut(10,10,Memo1); //Write the memo contents
   NewPage; //start new page
   Draw(10,10,Image1); //Draw image1 at x,y coord.
   NewPage;
   TextOut(10,10,'This is the end...');//Output a string
   EndDoc;//the document end
   Free; //Free the PDF object

   end;
end;

Simply, isn't it? And, the best of everithing, it's absolutely free!