mainunit.cpp

生成PDF文档的控件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "VPDFDoc"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        VPDF->AutoLaunch = true;                // PDF file will be shown automatically
        VPDF->FileName = "MultiSize.pdf";     // Set PDF filename
        VPDF->PageLayout = plOneColumn;         // Set one column viewer mode
        VPDF->BeginDoc(false);
        VPDF->CurrentPage->Size = psA3;                  // Set A3 page size
        VPDF->CurrentPage->PrintText(10, 10, 0, "A3 Size"); // Print text

        VPDF->AddPage();                                     // Add new page
        VPDF->CurrentPage->Size = ps8x11;                  // Set 8x11 page size
        VPDF->CurrentPage->Orientation = poLandscape;      // Set landscape page orientation
        VPDF->CurrentPage->PrintText(10, 10, 0, "8x11 Size"); // Print text

        VPDF->AddPage();                                       // Add new page
        VPDF->CurrentPage->Size = psLetter;                      // Set A4 page size
        VPDF->CurrentPage->PrintText(10, 10, 0, "Letter Size"); // Print text

		VPDF->EndDoc();                                    // Close PDF file
}
//---------------------------------------------------------------------------