PrintDialog

Caros amigos o que tem de errado na rotina abaixo????????
pois tento direcionar para uma impressora de rede e ele imprime na impressora local da minha maquina??!!!!!!! e ainda sem titulo !!!!!!!???????

estou utilizando do delphi6 e o componente PrintDialog.

procedure TCustomPrev.sbImprimeClick(Sender: TObject);
var i : integer;
begin
if dlgPrint.Execute Then
begin
For I := 1 to dlgPrint.Copies do
Begin
Try
QRPreview1.QRPrinter.title := ´Relatório do Sistema´;
QRPreview1.QRPrinter.Print;
except
On Exception do
abort;
end;
end;
end;
end;