Fórum Como configurar pagina no word #289310
24/07/2005
0
[color=green:dfae1e0c53]procedure TFrelSolicitacao.BitBtn5Click(Sender: TObject);
var
MSWord : Variant;
begin
MSWord:= CreateOleObject (´Word.basic´);
msword.Filenew;
msword.insert(´_________________________________________________________________________´);
msword.FontSize(10);
msword.Font(´Courier New´);
msword.insert(#13+´Empresa: ´);
msword.FontSize(14);
MSWord.insert(dmdados.IBSelectFirEmpresaEMPRESA.Value);
MSWord.FontSize(10);
MSWord.insert(´Usuário: ´ + fmenu.USUARIO);
MSWord.insert(13+´Endereço: ´ + dmdados.IBSelectFirEmpresaENDERECO.value +´ - ´ +dmdados.IBSelectFirEmpresaCIDADE.Value + ´/´+ dmdados.IBSelectFirEmpresaUF.Value);
MSWord.FontSize(10);
MSWord.insert(13+´_________________________________________________________________________´);
MSWord.insert(13);
MSWord.FontSize(16);
MSWord.centerPara;
MSWord.insert(´SOLICITAÇÂO DE COMPRA - ´ + format(´¬6.6d´,[dmdados.IbdsSolicitacaoINDICE.value]));
MSWord.FontSize(10);
MSWord.insert(#13);
if RadioButton5.Checked = false then begin
if dmdados.IbdsItensSolicitacao.Active= false then dmdados.IbdsItensSolicitacao.Active := true;
dmdados.IbdsItensSolicitacao.First;
MSWord.LEFTPara;
MSWord.FontSize(12);
MSWord.Font(´Courier New´);
MSWord.insert(13+´PRODUTO´+´ ´+´MARCA´ );
MSWord.FontSize(10);
while not dmdados.IbdsItensSolicitacao.Eof do begin
// MSWord.insert(13+ StringOfChar(dmdados.IbdsItensSolicitacaoDESCRICAO.Value,40) + ´ ´ +dmdados.IbdsItensSolicitacaoMARCA.Value);
MSWord.insert(13+ dmdados.IbdsItensSolicitacaoDESCRICAO.Value+ StringOfChar(´.´,(50-length(dmdados.IbdsItensSolicitacaoDESCRICAO.Value))));
MSWord.insert(´ ´ + dmdados.IbdsItensSolicitacaomarca.Value+ StringOfChar(´.´,(30-length(dmdados.IbdsItensSolicitacaomarca.Value))));
dmdados.IbdsItensSolicitacao.NEXT;
end;
END;
MSWord.AppShow;
end;[/color:dfae1e0c53]
[color=red:dfae1e0c53]Tudo ok, mais como faço pra configurar as margens??? 1.5cm na esquerda e direita[/color:dfae1e0c53]
Marcos Fernando
Curtir tópico
+ 0Posts
25/07/2005
Daemon
msword.Selection.PageSetup.LeftMargin
...passar para ela o valor [b:c11a9d83dd]EM PIXELS[/b:c11a9d83dd] de qual tamanho deve ter. De qualquer forma, eu não sei se você conhece o truque, mas mesmo que conheço, vou postar aqui para que outros que não saibam, conheçam... ....para você pegar qual o comando dar para poder fazer qualquer alteração no office, você vai no menu ´Ferramentas´, ´Macro´, ´Gravar Nova Macro´, depois de selecionar a opção vai aparecer uma janela perguntando qual o nome da macro que deseja gravar.. ...veja qual o nome está sendo utilizado e clique em ´OK´, em seguida faça as alterações que precisar saber, e clique no ´STOP´ no menuzinho da macro, que vai aparecer. Depois de ter feito isso, vá em ´Ferramentas´, ´Macro´, ´Editor do Visual Basic´, lá vai abrir o editor, na coluna que parece o ´ObjectTreeView´ do Delphi, dentro de ´Normal´, ´Modulos´ clique em ´NewMacros´. Tendo feito isso, vai abrir um ´CodeInspector´ com o código usado para gravar todas as macros até então, vai aparecer mais ou menos assim:
Sub MACRO1()
´
´ MACROM Macro
´ Macro gravada 25/7/2005 por .
´
Selection.PageSetup.LeftMargin = CentimetersToPoints(2.54)
End Sub...ai vai estar tudo que você precisa, algumas coisas vão precisar ser alteradas para poder funcionar no Delphi ......mas já é um grande passo, saber por onde começar.. .....espero que tenho ajudado manows.. ..
...flws
Gostei + 0
25/07/2005
Marcos Fernando
msword.Selection.PageSetup.LeftMargin := ´1,1 cm´;
ou ´1,1 PIXELS´
e me retornou ao seguinte erro: ´invalid variant operation´
Alguém sabe como corrigir?
Gostei + 0
26/07/2005
Marcos Fernando
Grato
Gostei + 0
27/07/2005
Marcos Fernando
ex:
tipo do papel ´A4´
margens esquerda = ´1.0 cm´ e direita = ´1.1 cm´;
Grato,
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)