Bikke,

Bom dia!

Faça assim.

    Columns("O:AF").Select
    Selection.EntireColumn.Hidden = True
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Columns("N:AG").Select
    Selection.EntireColumn.Hidden = False

Boa noite

Obrigado desde já pela sua ajuda.

O código a colocar no botão para imprimir é só assim ou falta mais alguma parte??

É que não imprime nada, sai a folha em branco.

Cumprimentos

Você tem que colocar dentro da procedure do botão.

Boa noite

Sim, foi colocado isso que você me deu, mas não dá, imprime a folha em branco, não sai nada.

Sub PRINT_ESCALA()

    Columns("O:AF").Select
    Selection.EntireColumn.Hidden = True
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Columns("A:CB").Select
    Columns("N:AG").Select
   Selection.EntireColumn.Hidden = False

End Sub

Após procurar na net encontrei algumas coisas e testei na minha planilha e encontrei o que pretendia..

Sub PRINT_ESCALA()
  Sheets("ESCALA").Unprotect "123"
  Columns("O:AF").Hidden = True
  Sheets("ESCALA").Select
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Sheets("ESCALA").Select
  Columns("O:AF").Hidden = False
  Sheets("ESCALA").Protect "123"
End Sub

Obrigado na mesma Wagner.

Cumprimentos