EXCEL VB - MACRO IMPRIMIR RETRATO

TIAGOCOMPUTER10 10/01/2013 12:16:19
#417106

Ola pessoal, estou com algumas duvidas. Tenho uma macro que executa alguns comandos.

Seleciona um intervalo de linha
Oculta todas as células que contem o numero [Ô]0[Ô]
Depois exibe os ocultos
E imprime em formato paissagem.

O problema esta na hora de imprimir. Ja defini a area de impressao como retrato, ja tentei fazer outros teste e nao consigo imprimir em retrato. Alguem pode me ajudar .

Grato.

Segue o codigo:

Sub imprimir()
On Error Resume Next
Dim oActiveSheet As Worksheet

Set oActiveSheet = ActiveSheet
Call Escondekanban(Plan8)

Plan2.PrintOut , , 2
Plan8.PrintOut

Call Aparecekanban(Plan8)
oActiveSheet.Activate

End Sub

Public Sub Escondekanban(ByVal objSheet As Object)

Dim lngCont As Long
Dim lngLinha As Long
Dim strNumero As String
Dim strVerifica As String

objSheet.Activate
lngLinha = 22
Do
strNumero = objSheet.Cells(lngLinha, [Ô]i[Ô]).Text
strVerifica = objSheet.Cells(lngLinha, [Ô]c[Ô]).Text
If Val(strNumero) = 0 Then
Rows(Trim$(Str$(lngLinha - 21)) & [Ô]:[Ô] & Trim$(Str$(lngLinha))).Select
Selection.EntireRow.Hidden = True
Else
Rows(Trim$(Str$(lngLinha - 21)) & [Ô]:[Ô] & Trim$(Str$(lngLinha))).Select
Selection.EntireRow.Hidden = False
End If
lngLinha = lngLinha + 22
Loop Until Len(Trim$(strVerifica)) = 0

End Sub


Public Sub Aparecekanban(ByVal objSheet As Worksheet)
objSheet.Activate
Rows([Ô]1:[Ô] & objSheet.Rows.Count).Select
Selection.EntireRow.Hidden = False
Cells(1, 1).Select
End Sub


Sub Atualizar_Ocultos()
For Each oWorkSheet In EstaPasta_de_trabalho.Worksheets
oWorkSheet.Activate
Rows([Ô]1:[Ô] & oWorkSheet.Rows.Count).Select
Selection.EntireRow.Hidden = False
Cells(1, 1).Select

Next
Plan1.Activate
Set oWorkSheet = Nothing
End Sub