DOUGLASlm,

Bom Dia!

Veja se assim lhe atende:

Sub Imprimir()
    Dim i As Long
    Dim UltimaLinha As Long
    Dim Col As String
    
    'Pegar a última linha com dados da Plan1 pela coluna A
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    
    'Limpar a área de impressão
    ActiveSheet.PageSetup.PrintArea = ""
    
    'Laço para percorrer todas as linhas para procurar marcas na coluna N
    For i = 2 To UltimaLinha
    'Verificar se a coluna N tem uma marca
        If Sheets("Plan1").Range("N" & i).Value <> "" Then
            Col = "M"
        End If
    Next
    
    'Definir a áreas de impressão
    Range("A1:" & Col & UltimaLinha).Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$" & Col & "$" & UltimaLinha
    
    'Imprimir
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Obrigado pela ajuda Wagner, mas acho que não me expressei bem...

Quero que imprima somente até a linha onde a coluna N estiver preenchida.

Obrigado pelo seu pronto atendimento sempre.

Bom... nesse caso é bem mais simples:

Sub Imprimir()
    Dim UltimaLinha As Long
   
    'Pegar a última linha com dados da Plan1 pela coluna N
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 14).End(xlUp).Row
   
    'Limpar a área de impressão
    ActiveSheet.PageSetup.PrintArea = ""
   
    'Definir a áreas de impressão
    Range("A1:N" & UltimaLinha).Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$N" & "$" & UltimaLinha
   
    'Imprimir
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub