Este fórum está sendo desativado

[SandroLima]

Boa tarde, pessoal

Tem como no próprio código definir a quantidade de folhas que a planilha deverá ser impressa?

Por exemplo a planilha em anexo está imprimindo em 2 folhas.

Tem como no código eu colocar para que a área de impressão fique em uma única folha?

[osvaldomp]

Código: Selecionar todos

 With ActiveSheet.PageSetup
  .PrintArea = "B2:AG21"
  .Zoom = False
  .FitToPagesWide = 1
  .FitToPagesTall = 1
 End With

[SandroLima]

Funcionou perfeitamente, osvaldomp... muito obrigado.

Veja se ficou correta a escrita

Código: Selecionar todos

Sub ImprimirEscalaParaEnvio()
   
    Dim localnome As String
 
   'Gerar e salvar arquivo em PDF
        
    localnome = ThisWorkbook.Path & "\" & ActiveSheet.Range("I2").Value & ActiveSheet.Range("L2").Value & " ESCALA" & ".pdf"
    
With ActiveSheet.PageSetup
        .PrintArea = "B2:AG21"
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

    Range("B2:AG21").Select
    
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            localnome, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
            
End Sub

Acho que ficou alguma coisa a mais ai quando repete o range da impressão.

E aproveitando o enredo....
Para centralizar a área de impressão tanto na vertical quanto na horizontal?
Como ficaria a complementação desse código?

[osvaldomp]

Para centralizar a área de impressão tanto na vertical quanto na horizontal?
Como ficaria a complementação desse código?

Obtido do gravador de macros:

Código: Selecionar todos

 With ActiveSheet.PageSetup
  .PrintArea = "B2:AG21"
  .Zoom = False
  .FitToPagesWide = 1
  .FitToPagesTall = 1
  .CenterHorizontally = True
  .CenterVertically = True
 End With

Disponível aqui também:
https://msdn.microsoft.com/en-us/vba/ex ... erty-excel

[SandroLima]

Muito obrigado.