RAVE 报表打印条形码问题 |
缺席
|
cxg
中階會員 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
我用一下方法作了一个报表,并打印一个条形码,但是条形码无法显示。请问这种方法可以吗?我应该增养打印条形码?谢谢指教。 procedure TForm1.RvSystem2Print(Sender: TObject);
VAR
BAR : TRaveCode39BarCode;
begin
BAR := TRaveCode39BarCode.Create( (Sender as TBaseReport));
BAR.TextJustify := pjCenter;
BAR.Text := 'RZ000008';
BAR.Left := 1;
BAR.Top := 0.5; WITH (Sender as TBaseReport) DO
BEGIN
SetFont('Arial', 15);
FontColor := CLGREEN;
GotoXY( 0.5, 2);
Print('自定义Rave报表');
END;
end; procedure TForm1.Button3Click(Sender: TObject);
begin
RvSystem2.Execute;
end;
|
cxg
中階會員 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |