procedure  Print(ALayers: array of Integer; UserScale: double = 1.0);




Description:


 Print to printer.



Parameter

ALayer: if you want print all layer, please use [], else [1,2,3], or you create array and set layerId that you want print

UserScale:the scale.


Example:


Delphi

//print all shapes in 50% scale.

MyCAD1.Print ([],0.5);



C++ Builder

//print all shapes in 100% scale.

void__fastcall TMainFrm::BitBtn1Click(TObject *Sender)

{

int p[1];

p[0]=NULL;

MyCAD1->Print(p,0,1.0);

}


//print the shapes in 0,1 layers in 100% scale.

void__fastcall TMainFrm::BitBtn1Click(TObject *Sender)

{

int p[2];

p[0]=0; //First Layer Id

p[1]=1; //Second Layer Id

MyCAD1->Print(p,2,1.0);

}



See also:


PrintPreview