[Resolvido] Verificação antes de imprimir

Basole disse:

Bom, pelo que eu entendi voce quer que verifica se existem dados no intervalor [B3 a B7].
Caso tenha dados -> imprimir
Caso nao tenha... -> Mensagem
Se for isso, segue com alteração incluindo a chamada para sua macro:
[code=VB]
Option Explicit

Sub Verif_Col_B_Imprime()
Dim Msg As Boolean
Dim rng As Range, c As Range
With ActiveSheet
Set rng = Range("B3:B7")
Set c = rng.Find("*")
Msg = IIf(Not c IsNothing, True, False)
Select Case Msg
Case True
Call Print_plan ' *** Chama a sua Rotina de Impressão
Case False
MsgBox "Não há dados a serem impressos", 64, "Atenção"
End Select
End With
End Sub
[/code]

Na verdade tem que verificar e identificar a última célula preenchida na coluna B e imprimir até ela. A vem a pergunta: Se eu substituir Set rng = Range("B3:B7") por Set rng = Range("B7:B") eu consigo o resultado pretendido?

Basole disse:

Se voce substituir desta forma vai aparecer um 'error'. Voce tem que definir um intervalor valido. (B7 ate B + " " (nada)) ???
Veja se é isso:
Se na coluna B a partir da linha 7, tiver dados, então imprimir o intervalo de [ B3 até F + a ultima linha que tiver dados nas coluna B] .
Caso contrario: Aparecer a mensagem citada
[code=VB]
Sub Verif_Col_B_Imprime()
Dim Msg As Boolean
Dim rng As Range, c As Range
Dim Lr As Long
With ActiveSheet
Lr = .Cells(Rows.Count, 2).End(xlUp).Row 'define a ultima linha nao vazia
Set rng = Range("B7:B" & Lr)
Set c = rng.Find("*")
Msg = IIf(Not c Is Nothing, True, False)
Select Case Msg
Case True
Call Print_plan ' ** Chama sua Rotina que imprime
Case False
MsgBox "Não há dados a serem impressos", 64, "Atenção"
End Select
End With
End Sub

Sub Print_plan()
'Intervalo para impressão inicia em B3, mas só deve ser impresso se alguma célula da coluna B estiver preenchida
Dim Lr As Long
With ActiveSheet
Lr = .Cells(Rows.Count, 2).End(xlUp).Row 'define a ultima linha nao vazia
Lr = IIf(Lr < 3, 3, Lr) ' se Lr é menor que 3 define Lr com 3
.Range("B3:F" & Lr).Select
Selection.PrintOut From:=1, To:=1, Copies:=1
.Range("A7").Select
End With
End Sub

[/Code]