Criando Macro para imprimir células selecionadas

Question

Eu estou tentando gravar um Macro para imprimir as células selecionadas e, em seguida, retornar a planilha ao seu formato original. Estou escondendo as colunas B a H, imprimindo A7:I68 . Enquanto grava a macro, a impressão sai correta. Uma vez salvo, apenas imprime a coluna A7: A68, não inclui a coluna I.

ActiveSheet.Unprotect
Columns("B:H").Select
Selection.EntireColumn.Hidden = True
Range("A7:I68").Select
ActiveSheet.PageSetup.PrintArea = "$A$7:$I$68"
Selection.PrintOut Copies:=1, Collate:=True
Columns("A:I").Select
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll Down:=-72
Range("A10").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    False

Alguma sugestão?

    

Answer 1

Tina Eu gostaria de sugerir código VBA para imprimir Não uma, mas Seleções Múltiplas, isso vai copiar o intervalo para imprimir fazer pasta de folha lá, mostra Preview, Print & finalmente, apague essa folha.

Sub Print_MultiSelection()

Dim rng As Range, ws As Worksheet, rngArea As Range

Set rng = Selection

Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))

For Each rngArea In rng.Areas rngArea.Copy Destination:=ws.Range(rngArea.Address)

ws.Range(rngArea.Address).Value = rngArea.Value

Next 

rngArea ws.PrintPreview

ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:= False

Application.DisplayAlerts = False

ws.Delete Application.DisplayAlerts = True

rng.Parent.Activate

End Sub