Ir para conteúdo
Fórum Script Brasil
  • 0

Formatando A Pagina


Luiz Humberto

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

Tente isto:

script language=vbscript>

Set altera_margens = CreateObject("WScript.Shell")

header = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header", " VALOR DA CABECALHO ", "REG_SZ"

footer = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer","VALOR DO RODAPE", "REG_SZ"

'CUIDADO COM O VALOR DAS MARGENS QUE É UMA MEDIDA MEIO ESQUISXZITA

margin_bottom = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom", " VALOR DA MARGEM ", "REG_SZ"

margin_left = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left", "VALOR DA MARGEM", "REG_SZ"

margin_right = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right", "VALOR DA MARGEM", "REG_SZ"

margin_top = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top", "VALOR DA MARGEM", "REG_SZ"

window.print()

'VOLTANDO OS VALORES ORIGINAIS

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header",header, "REG_SZ"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer", footer, "REG_SZ"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom", margin_bottom, "REG_SZ"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left", margin_left, "REG_SZ"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right", margin_right, "REG_SZ"

altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top", margin_top, "REG_SZ"

</SCRIPT>

Autor :Igor Reis

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...