把RBuilder下的Source目录下的ppPrvDlg.dfm、ppPrvDlg.pas两个文件拷
到你的程序目录下并加到程序中,在ppPrvDlg.pas代码中 ppViewer1.Print;
前加上代码:
form1.ppLabel1.caption := '';
//不想打印
form1.ppLabel2.caption := '';
//不想打印
如果不想打印的ppLabel多,可以把不想打印的ppLable的Tag值设成1
打印时上面的代码变成:
for I := 0 to form1.ComponentCount-1do
if form1.Components is TppLabel then
if form1.TppLabel(Components).Tag = 1 then
begin
form1.TppLabel(Components).caption := '';
Break;
end;