Página 1 de 1

imprimir listview

Enviado: Seg Out 29, 2012 1:25 pm
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

Re: imprimir listview

Enviado: Seg Out 29, 2012 4:46 pm
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...

Re: imprimir listview

Enviado: Ter Out 30, 2012 1:05 pm
por camilaposser
Valeu!
Era isso mesmo que eu precisa.