Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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 470 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 »

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...


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

Re: imprimir listview

Mensagem por camilaposser »

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