Problema Comunicação Impressora

[salvador]

Amigos;

Tenha diversas macros que tem página configurada, ou seja, que tem comunicação com a impressora. O problema é que quando não há comunicação com a impressora, ou a trocam a impressora sempre acaba dando problema.

Agora mesmo esta dando o seguinte erro:

Erro em tempo de execução '1004':

E quando depuro o arquivo a linha abaixa fica em amarelo apontando o erro na comunicação

Application.PrintCommunication = True

Como resolver esse problema de uma vez por todas?

Alguém poderia ajudar-me!

Obrigado

[Marciel Silva]

romanholi, boa tarde!

Inclua esse código antes da linha "Application.PrintCommunication = True"

Código: Selecionar todos

On Error Resume Next

Faça o teste!!!

Att,

[salvador]

Obrigado Marciel, vou tentar aqui! Depois dou um Feedback!

Obrigado

[salvador]

Marciel, bom dia!

Realmente ele ignorou o erro, porém ele não configurou a página.

E se eu tirar o código ele manda depurar no Application.PrintCommunication = True!

E nesse momento já existe comunicação com a impressora, pois estou conseguindo imprirmir e configurar página de qualquer documento!

Em suma:

Como manter a configuração da página sem que o código precise comunicar com a impressora!

Meu medo é que toda vez que desinstale uma impressora e instale uma nova o código dê problema?

Existe alguma solucão?

Vide a parte do meu código que configura a página:

Código: Selecionar todos

    ' CONFIGURAR PÁGINA
    
    
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$3"
        .PrintTitleColumns = ""
    End With
    

    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0.393700787401575)
        .BottomMargin = Application.InchesToPoints(0.393700787401575)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.118110236220472)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 75
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
          ActiveSheet.PageSetup.PrintArea = "$A:$I"