Si se puede cambiar la impresora.
Aquí tienes un ejemplo:
Código:
procedure TfrLptFactura.LptFacturaBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
prnDialog.Execute;
LptFactura.PrinterSettings.Printerindex:=Printer.PrinterIndex;
if DmLux.FactDescuento.value = 0 then
begin
QrlbDescuento.Enabled:=False;
QrDbDescuento.Enabled:=False;
end;
lbPaginas.Caption:='/'+IntToStr(nPages);
end;
En cuanto a lo del botón de imprimir, te puedes hacer una Vista previa pesonalizada, en la Web del Moderador Cadetill, tienes un buen ejemplo.
Un Saludo.