Fórum Cancelar impressão Rave #571354
22/11/2016
0
Bom dia a todos do forum DevMedia.
Estou desenvolvendo um projeto o qual estou utilizando a impressão dos relatórios pelo Rava na unha mesmo, via código.
A situação que está pegando no momento é que quando executo o relatório, que me traz a janela do Setup, e ai por qualquer motivo
que seja desejo cancelar a impressão do relatório clicando em cancelar, o mesmo não cancela, continua o processo da impressão.
Segue o que estou fazendo (obs: Utilizo o Delphi 10)
Rst1.SystemPrinter.MarginBottom := 0;
Rst1.SystemPrinter.MarginLeft := 0;
Rst1.SystemPrinter.MarginTop := 0;
Rst1.SystemPrinter.MarginBottom := 0;
RPDev.PrinterSetupDialog;
Rst1.SystemPrinter.Units := unCM;
Rst1.SystemPrinter.UnitsFactor := 2.54;
Rst1.SystemPrinter.Copies := rpDev.Copies;
rpDev.Orientation := poPortrait;
Rst1.SystemPrinter.Orientation := rpDev.Orientation;
Rst1.SystemPreview.FormState := wsMaximized;
Rst1.SystemSetups := Rst1.SystemSetups - [ssAllowSetup];
Rst1.SystemPreview.RulerType := rtBothCm;
rpDev.Copies := 1;
Rst1.Execute;
Agradecemos de antecipado aos que nos ajudarem.
Estou desenvolvendo um projeto o qual estou utilizando a impressão dos relatórios pelo Rava na unha mesmo, via código.
A situação que está pegando no momento é que quando executo o relatório, que me traz a janela do Setup, e ai por qualquer motivo
que seja desejo cancelar a impressão do relatório clicando em cancelar, o mesmo não cancela, continua o processo da impressão.
Segue o que estou fazendo (obs: Utilizo o Delphi 10)
Rst1.SystemPrinter.MarginBottom := 0;
Rst1.SystemPrinter.MarginLeft := 0;
Rst1.SystemPrinter.MarginTop := 0;
Rst1.SystemPrinter.MarginBottom := 0;
RPDev.PrinterSetupDialog;
Rst1.SystemPrinter.Units := unCM;
Rst1.SystemPrinter.UnitsFactor := 2.54;
Rst1.SystemPrinter.Copies := rpDev.Copies;
rpDev.Orientation := poPortrait;
Rst1.SystemPrinter.Orientation := rpDev.Orientation;
Rst1.SystemPreview.FormState := wsMaximized;
Rst1.SystemSetups := Rst1.SystemSetups - [ssAllowSetup];
Rst1.SystemPreview.RulerType := rtBothCm;
rpDev.Copies := 1;
Rst1.Execute;
Agradecemos de antecipado aos que nos ajudarem.
Marlon Prado
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)