算了，还是问具体点：针式打印机，qreport控件。－－第一次写打印程序，大家帮帮忙。 (100分)

算了，还是问具体点：针式打印机，qreport控件。
由于我从没写过打印程序，而且目前手头没有打印机，关键是连些基本的都不懂。想问一下：1 我在reportsetting 设置的尺寸大小好像跟实物不符是怎么回事？ 2 我做的是薪资打印，有很多工资项目，一页就是一个员工的工资记录，qrband是不是要设置成天跟quickreport的大小一样（否则就预览时一页显示两张：目前手头没有打印机，无法看倒实际情况）。3 每个工资项目的值都是currency类型的，是不是都用tqrdbtext控件？ 4 我有客户提供的已打印出来的薪资单，如何知道单子上的字是几号字体啊？
最好再告诉我打印的一些基本概念，我真的是第一次写打印程序，谢谢！

帮不上忙，很同情你！

to all:
大家不要光同情我啊。帮我弄点资料来也是好的。全文检索用不起来，否则我就自己搜索了。

把论坛下载下来，自己搜索就是了！

http://www.delphibbs.com/delphibbs/dispq.asp?lid=214326
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1709097
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1955920
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1843654
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2003505
http://www.delphibbs.com/delphibbs/dispq.asp?lid=936774
http://www.delphibbs.com/delphibbs/dispq.asp?lid=584736
http://www.delphibbs.com/delphibbs/dispq.asp?lid=408574
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1055536
呵呵，不好意思，帮不了你太多，你自己看看吧

to all:
或者大家发段相关的代码给我看看？项目稍微多点的，但格式不是很复杂的最好。多谢大家了。
条件：1 针式打印机 2 套打
我的email：zwhq_super@sina.com.cn

procedure TfPntTdgb.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
MoreData := True;
if not dmClient.cdsQuerySj.Eof then
begin
QRLabel13.Caption := dmClient.cdsQuerySj.FieldByName('A3').AsString;
QRLabel14.Caption := Trim(dmClient.cdsQuerySj.FieldByName('A4').AsString);
if Trim(dmClient.cdsQuerySj.FieldByName('A5').AsString) = '调减' then
begin
sum1 := sum1 + dmClient.cdsQuerySj.FieldByName('A10').AsFloat;
sum2 := sum2 + dmClient.cdsQuerySj.FieldByName('A15').AsFloat;
QRLabel15.Caption := FormatFloat('0.0000', dmClient.cdsQuerySj.FieldByName('A10').AsFloat);
QRLabel16.Caption := FormatFloat('0.00', dmClient.cdsQuerySj.FieldByName('A15').AsFloat);
QRLabel17.Caption := dmClient.cdsQuerySj.FieldByName('A7').AsString;
QRLabel18.Caption := '';
QRLabel19.Caption := '';
QRLabel20.Caption := '';
end else
if Trim(dmClient.cdsQuerySj.FieldByName('A5').AsString) = '调增' then
begin
QRLabel15.Caption := '';
QRLabel16.Caption := '';
QRLabel17.Caption := '';
sum3 := sum3 + dmClient.cdsQuerySj.FieldByName('A9').AsFloat;
sum4 := sum4 + dmClient.cdsQuerySj.FieldByName('A14').AsFloat;
QRLabel18.Caption := FormatFloat('0.0000', dmClient.cdsQuerySj.FieldByName('A9').AsFloat);
QRLabel19.Caption := FormatFloat('0.00', dmClient.cdsQuerySj.FieldByName('A14').AsFloat);
QRLabel20.Caption := dmClient.cdsQuerySj.FieldByName('A7').AsString;
end else
begin
QRLabel15.Caption := '';
QRLabel16.Caption := '';
QRLabel17.Caption := '';
QRLabel18.Caption := '';
QRLabel19.Caption := '';
QRLabel20.Caption := '';
end;
end;
if dmClient.cdsQuerySj.Eof then
begin
QRLabel13.Caption := '';
QRLabel14.Caption := '';
QRLabel15.Caption := '';
QRLabel16.Caption := '';
QRLabel17.Caption := '';
QRLabel18.Caption := '';
QRLabel19.Caption := '';
QRLabel20.Caption := '';
if Lines >= fFax.SpaceLine then
MoreData := False;
Lines := Lines + 1;
end;
dmClient.cdsQuerySj.Next;
end;

多人接受答案了。