Notifications
Clear all

Comando para chamar impressora.

4 Posts
2 Usuários
0 Reactions
1,043 Visualizações
Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Pessoal, bom dia!

É o seguinte, eu possuo um código no meu projeto que, ao executá-lo, através do botão imprimir_click, o mesmo imprimi, automaticamente, o conteúdo da sheets "Banco de Dados", A1:K800.

Porém, as vezes, o usuário necessita imprimir em PDF e/ou modificar a impressão.

Por conta disso, solicito o apoio de vocês no senbtido de instruir-me a desenvolver um código que ''chame'' a imprissão, a qual selecione estas células ( "Banco de Dados", A1:K800) e permita-me a escolher como imprimir, ou seja, igual dar um CTRL + P em um sheets do excel.

 
Postado : 29/08/2014 5:07 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Lorenzo,

A mesma opção do <Ctrl> + <P> não sei, mas tenta assim:

    selectimpressora = Application.Dialogs(xlDialogPrinterSetup).Show
    If selectimpressora = True Then
        ThisWorkbook.Sheet("Banco de Dados").PrintOut
    End If

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/08/2014 6:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Lorenzon, bom dia!

Segue minha contribuição:

Sub imprimir_Area()
   Range("A1:K800").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$800"
   Application.Dialogs(xlDialogPrint).Show
End Sub

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/08/2014 8:44 am
Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Bernardo e Marciel...

Ambos os códigos não funcionaram, mas observem que, ao mesclá-lo, objetive êxito, vide abaixo:

Dim selectimpressora

selectimpressora = Application.Dialogs(xlDialogPrinterSetup).Show

If selectimpressora = True Then
Range("A1:g194").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$g$194"
Application.Dialogs(xlDialogPrint).Show
End If

 
Postado : 29/08/2014 11:46 am