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.