Vb C/ Excel

[resopi]

ola pessoal é o seguinte. eu preciso configurar o formato de impressao de um arquivo do Execel atravez do VB.... o arquivo eu já gero pelo execel. podem eu não consigo setar as configurações de impressao do arquivo. abaixo segue a foto com os dois parametros que preciso mudar.

esse imaguem foi tirada do Execel para demonostrar os parametros que preciso mudar:

e são eles:

1 => mudar o tipo de impressao para imprimir "paisagem" ou seja na folha deitada.

2=> mudar o tamanho do conteudo dentro da folha!

alguém tem alguma ideia de como fazer isso???

t+

vlw pessoal!

[Decio]

você pode tentar usar o commondialog. Não testei se funciona mudar o tamanho, porque meu driver de impressão não tem esta opção.

Seu código ficaria + ou - assim:

CommonDialog1.Orientation = cdlPortrait
CommonDialog1.MaxFileSize = 60
CommonDialog1.ShowPrinter

Isto vai chamar a caixa de dialogo de impressão já configurada, porém o usuario vai ter que clicar no botão imprimir. Como sempre alguém vai resolver clicar onde não se deve...

[resopi]

O problema é o seguinte... eu preciso mudar isso no arquivo do excel e salvar ele assim... pois ele sera enviado por e-mail e a pessoa no destino que vai imprimir não vai estar rodando a aplicação... somente p arquivo xls.

falou!!!

[Decio]

problema é o seguinte... eu preciso mudar isso no arquivo do excel e salvar ele assim...

A sei, não tinha entendido bem. Mas sera que isto tem jeito? As informações de impressão não ficam gravadas no arquivo do Excel , devem ficar gravadas no Registro do Windows. Talvez com VBA você consiga alterar as configurações , mas não entendo muito de programação no Excel.

[Graymalkin]

A dica de sempre: grave uma macro no Excel fazendo exatamente isso que você quer (mudando a orientação para paisagem e ajustando as dimensões da página) e o próprio Excel vai gerar o código para você (basta teclar ALT+F11 para ir para o editor do VBA e lá ver o código).

Abraços,

Graymalkin

[Guest - Mário -]

O excel possui o recurso de criar macros, uma espécie de assistente que, quando não lembro de algum comando eu uso este meio. Basta ir no menu Ferramentas/Macro/Criar uma nova macro. Você faz todos comandos que desejar que eles ficam registrados num módulo. Após, aperte no botão "parar gravação" e vá até o editor do visual basic e faça as alterações que achar necessário.

Veja o resultado

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(0.78740157480315)

.RightMargin = Application.InchesToPoints(0.78740157480315)

.TopMargin = Application.InchesToPoints(0.984251968503937)

.BottomMargin = Application.InchesToPoints(0.984251968503937)

.HeaderMargin = Application.InchesToPoints(0.511811023622047)

.FooterMargin = Application.InchesToPoints(0.511811023622047)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality = -2

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape '<AQUI ESTÁ A ORIENTAÇÃO DO PAPEL

.Draft = False

.PaperSize = xlPaperA4

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = 60 '< AQUI ESTÁ A PROPORÇÃO DO TAMANHO

.PrintErrors = xlPrintErrorsDisplayed

End With

End Sub

Oque você quer certamente está nas linhas onde foi colocado as observações em máiúscula acima. as demais linha podem ser removidas se você quisir usar os comando padrão.