Hola
A la primera pregunta:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
QReport1:=TQReport1.Create(self);
try
QReport1.ADOQuery1.Open; QReport1.Preview;
finally
QReport1.Free;
end;
end;
Bueno con esto abres el reporte para impresion.
Saludos