Estou tentando imprimir através de uma macro em uma impressora compartilhada em um PC de colegas.
Eu tentei o seguinte, mas sem sucesso
Sub Tag()
ActiveCell.Resize(1, 1).Copy Worksheets("Sheet1").Range("A1")
ActiveCell.Offset(, 1).Resize(...
16.03.2016 / 15:00