ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

imprimir listview

Dúvidas gerais sobre Excel
camilaposser
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Ter Out 23, 2012 3:59 pm

imprimir listview

Mensagem por camilaposser » Seg Out 29, 2012 1:25 pm

ola!
segue em anexo o código, e gostaria de ao clicar no botão imprimir abri-se a tela de impressão do windows para configurar a impressora ou que imprimisse direto
Anexos
diferente1.rar
(702.2 KiB) Baixado 306 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
BaptistaCG
Colaborador
Colaborador
Mensagens: 96
Registrado em: Seg Jul 30, 2012 10:33 pm
Localização: Sorocaba/SP

Re: imprimir listview

Mensagem por BaptistaCG » Seg Out 29, 2012 4:46 pm

camilaposser escreveu:ola!
segue em anexo o código, e gostaria de ao clicar no botão imprimir abri-se a tela de impressão do windows para configurar a impressora ou que imprimisse direto

Olá querida Camila, segue comandos que eu tenho para realizar essa operação, teste qual é o melhor para o seu caso e bom trabalho...
Espero que lhe atenda.

Código: Selecionar todos

'Este comando exporta para .pdf.
        ChDir "C:\Users"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Nome do arquivo" & ".pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

'Este Visualiza a impressão
'Obs. Você pode colocar para visualizar também antes de imprimir utilizando o comando Preview:=true depois de Copies:=1
    ActiveWorkbook.PrintPreview

'Este Abre tela para selecionar impressora e todas as configurações de impressão, e depois imprime.
    Application.Dialogs(xlDialogPrint).Show

'Este Abre tela para selecionar qual será a impressora padrão e se desejar, configurar impressora.
    Application.Dialogs(xlDialogPrinterSetup).Show

'Este Imprime na "impressora padrão" a pasta de trabalho inteira
    ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

'E este Imprime na "impressora padrão" somente a planilha ativa
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False


Att...


Vinícius Baptista.

"Não há sucesso maior do que uma boa falha"
Se gostou da resposta clique em Imagem.

camilaposser
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Ter Out 23, 2012 3:59 pm

Re: imprimir listview

Mensagem por camilaposser » Ter Out 30, 2012 1:05 pm

Valeu!
Era isso mesmo que eu precisa.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder