(Resolvido) Configuração do PageSetupDialog

[Arrais Júnior]

bom dia, estou usando o componente PrintDialog para imprimir um texto do RichEdit, contudo, a impressão sai como se fosse em PAISAGEM, mesmo estando marcado RETRATO.

utilizo uma impressora matricial epson fx-890

e esse código em um botão

If (PrintDialog1.Execute) then

begin

Printer.Orientation := poLandscape;

RichEdit1.Print(ExtractFilePath(Application.ExeName) + '\Impressão.txt');.

obs: tem que ser feita alguma alteração nos compenentes PageSetupDialog e PrinterSetupDialog para que eles funcionem?

procedure TForm1.SpeedButton14Click(Sender: TObject);

begin

pagesetupdialog1.execute;

end;

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

printersetupdialog1.execute;

end;

aproveitando o tópico, usando os componentes Dialog, tem como fazer uma visualização de impressão?

obrigado.

[Jhonas]

Veja este post

https://www.scriptbrasil.com.br/forum/lofiv...hp/t129560.html

abraço

[Arrais Júnior]

eu li, porém, não consegui encontrar algo que me ajudasse no meu problema.

vou tentar deixar bem claro o que eu preciso.

preciso de um botão que imprima, usando o PrintDialog, com esses atributos, levando em consideração uma folha normal A4:

Estilo = RETRATO

Margem Esquerda = 25

Margem Direita = 20

Margem Superior = 20

Margem Inferior = 20

tem como? como ficaria o código?

obrigado.

[Jhonas]

Amigo ... pela falta de tempo, o que posso fazer é te indicar onde pesquisar sobre o assunto

http://www.delphipages.com/forum/showthread.php?t=160040

http://www.ramosdainformatica.com.br/dic_r...s01.php?CDA=892

http://www.delphibasics.co.uk/RTL.asp?Name=TPrintDialog

http://www.delphibasics.co.uk/Article.asp?Name=Printing

http://blog.ph0.com.br/?p=134

abraço

[Arrais Júnior]

obrigado pela ajuda jhonas...

eu não consegui, inclusive, já tinha visto dois desses links em minhas procuras..

mesmo assim obrigado.

se algum puder postar como ficaria para:

preciso de um botão que imprima, usando o PrintDialog, com esses atributos, levando em consideração uma folha normal A4:

Estilo = RETRATO

Margem Esquerda = 25

Margem Direita = 20

Margem Superior = 20

Margem Inferior = 20

[Arrais Júnior]

alguém me ajuda?? Oo

[Jhonas]

OK... vou te ajudar

uses Printers;

(* Setar as margens do RichEdit em Polegadas (1 polegada = 2.54 cm)
    para a impressora ativa *)
 procedure SetRichEditMargins(
   const mLeft, mRight,
         mTop, mBottom: extended;
   const re : TRichEdit);
 var
   ppiX, ppiY : integer;
   spaceLeft, spaceTop : integer;
   r : TRect;
 begin
   // pixels por polegadas
   ppiX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
   ppiY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);

   // não imprimir margens
   spaceLeft := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
   spaceTop := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);

   //calcular as margens
   R.Left := Round(ppiX * mLeft) - spaceLeft;
   R.Right := Printer.PageWidth - Round(ppiX * mRight) - spaceLeft;
   R.Top := Round(ppiY * mTop) - spaceTop;
   R.Bottom := Printer.PageHeight - Round(ppiY * mBottom) - spaceTop;

   // setar as margens
   re.PageRect := r;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var MEsq, MDir, MSup, MInf : real;
begin
   {Estilo = RETRATO
   Margem Esquerda = 25
   Margem Direita = 20
   Margem Superior = 20
   Margem Inferior = 20}

   if PageSetupDialog1.Execute then
      begin

         Printer.Orientation := poPortrait; // vertical

         MEsq := (PageSetupDialog1.MarginLeft / 2.54)/1000;
         MDir := (PageSetupDialog1.MarginRight / 2.54)/1000;
         MSup := (PageSetupDialog1.MarginTop  / 2.54)/1000;
         MInf := (PageSetupDialog1.MarginBottom / 2.54)/1000;

         SetRichEditMargins(MEsq, MDir, MSup, MInf, richEdit1);
         richEdit1.Print('Printing with margins');
      end;
end;

abraço

[Arrais Júnior]

vlws mesmo jhonas, já alterei aqui, amanhã quando chegarno trabalho eu testo...

já vou agradecendo pelo trabalho que você teve em especificar tudo...obrigado mesmo.

[Arrais Júnior]

opa! aqui estou :P

o problema da impressao em paisagem foi corrigido, obrigado!

tou tendo um probleminha, as margens não tão saindo como é configurado...

não importa se eu altero no cod.

Printer.Orientation := poPortrait; // vertical

MEsq := (PageSetupDialog1.MarginLeft / 2.54)/100;

MDir := (PageSetupDialog1.MarginRight / 2.54)/100;

MSup := (PageSetupDialog1.MarginTop / 2.54)/100;

MInf := (PageSetupDialog1.MarginBottom / 2.54)/100;

...

ou se eu altero na janelinha que imprime...ela sempre sai do mesmo tamanho Oo, não deixando a margem :(

eu já tentei mudar o tipo de papel, porem, a mesma coisa..

alguma luz?

eu uso uma impressoa matricial epson 980.

obrigao..jhonas...me ajuda! hiiihih =D

[Jhonas]

ou se eu altero na janelinha que imprime...ela sempre sai do mesmo tamanho Oo, não deixando a margem

foi mal ... erro no calculo

MEsq := (PageSetupDialog1.MarginLeft / 2.54)/1000;
MDir := (PageSetupDialog1.MarginRight / 2.54)/1000;
MSup := (PageSetupDialog1.MarginTop / 2.54)/1000;
MInf := (PageSetupDialog1.MarginBottom / 2.54)/1000;

abraço

[Arrais Júnior]

obrigado...amanhã quando eu for pro trabalho eu teste novamente =D

vlws mesmo.

eu tenho um botao que serve de SALVAR COMO, igual o dos word e tals..

como é que faz pra por um botao que SALVA o arquivo já aberto...tipo o SALVAR do word..para evitar que se perca o trabalho se o pc travar e tals.

Editado Julho 17, 2010 por Arrais Júnior