Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
SELECIONAR IMPRESSO...
 
Notifications
Clear all

SELECIONAR IMPRESSORA VBA

 
2024 - VBA & Macros
3 Posts
2 Usuários
0 Reactions
3,756 Visualizações
RSS
 denisw
(@denisw)
Posts: 64
Trusted Member
Topic starter
 

Boa tarde.
tenho uma impressora para etiquetas e uma para romaneio . ao tentar trocar a macro para escolher impressao , ela não imprime. e gostaria de saber em qual parte incluo as preferencias de impressão se antes do aplication ou depois
segue
Private Sub imprimirrom_Click()
ThisWorkbook.Worksheets("ROMANEIO").Activate
Range("B1").Value = ComboBox1.Value
ActiveSheet.Range("$A$5:$C$500").AutoFilter Field:=2, Criteria1:= _
Range("B1")
ActiveWindow.SelectedSheets.Application.Dialogs(xlDialogPrinterSetup).Show

ActiveSheet.Range("$A$1:$B$1000").AutoFilter Field:=2 ' mesmo q show alldata'

 
Postado : 29/01/2015 11:47 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Selecione a impressora e depois faça as devidas referências.

Application.Dialogs(xlDialogPrint).Show

http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

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

 
Postado : 29/01/2015 12:07 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Talvez lhe ajude

Sub AleVBA_14379()
'Escolha a impressora
    Application.Dialogs(xlDialogPrinterSetup).Show
'Selecione e visualize o intervalo
    ActiveSheet.Range("A1:C10").PrintPreview
'Imprimir
    ActiveSheet.PrintOut
End Sub

Att

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

 
Postado : 29/01/2015 12:14 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico