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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
imprimir listview
-
- Acabou de chegar
- Mensagens: 7
- Registrado em: Ter Out 23, 2012 3:59 pm
- BaptistaCG
- Colaborador
- Mensagens: 96
- Registrado em: Seg Jul 30, 2012 10:33 pm
- Localização: Sorocaba/SP
Re: imprimir listview
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...
-
- Acabou de chegar
- Mensagens: 7
- Registrado em: Ter Out 23, 2012 3:59 pm