fast reportta direkt raporu yazıcıya göndermek istiyorum.varmı böyle bir özellik?
Kod: Tümünü seç
frxReport1.PrintOptions.ShowDialog := False;
frxReport1.Print;
yardımcı olursanız sevinirim.iyi çalışmalar
Kod: Tümünü seç
frxReport1.PrintOptions.ShowDialog := False;
frxReport1.Print;
Kod: Tümünü seç
procedure Tyazdir.RzBitBtn1Click(Sender: TObject);
begin
if yazdir.suiRadioButton2.Checked=true then begin
form6.frxReport1.Print;
end
else
if yazdir.suiRadioButton1.Checked=true and yazdir.suiRadioButton4.Checked=true then begin
datamodule1.IBDataSet1.Close;
datamodule1.IBDataSet1.SelectSQL.Clear;
datamodule1.IBDataSet1.SelectSQL.Add('Select*from ckart where C_KOD between ''' + Rzbuttonedit1.Text + ''' and ''' + Rzbuttonedit1.Text + '''');
datamodule1.IBDataSet1.Open;
form6.frxReport1.ShowReport(true);
end else
if yazdir.suiRadioButton1.Checked=true and yazdir.suiRadioButton5.Checked=true then begin
datamodule1.IBDataSet1.Close;
datamodule1.IBDataSet1.SelectSQL.Clear;
datamodule1.IBDataSet1.SelectSQL.Add('Select*from ckart where CGRUP between ''' + Rzbuttonedit2.Text + ''' and ''' + Rzbuttonedit2.Text + '''');
datamodule1.IBDataSet1.Open;
form6.frxReport1.ShowReport(true);
end
else
if yazdir.suiRadioButton1.Checked=true and yazdir.suiRadioButton3.Checked=true then begin
form6.frxReport1.ShowReport(true);
end;
end;
Kod: Tümünü seç
frxReport1.PrepareReport;
frxReport1.Print;
Kod: Tümünü seç
form1.Print;