[Resolvido]Mensagem de erro de tamanho de margem em relatório do word.

Bom dia Mestres.
Tenho um botão que cria um relatório baseado em um doc do word e depois envia o mesmo para impressão.
Pois bem, nessa hora, aparece aquela mensagem de "As margens estão fora da área de impressão...", mais ou menos isso.
Tem como imprimir direto sem que abra essa mensagem?
PS: o doc modelo não pode ter as margens alteradas, pois sairia em 2 páginas, o que não quero.

Aguardo suas luzes...

Olá Luiz,

Vc já tentou usar desabilitar as mensagens padrão o Access, escrevendo esta função no botão que dá origem ao doc?

Código:

Response = acDataErrContinue 'inibe msg padrão do access.

Tenta aí, se o problema for no Access será resolvido, mas se for no Word talvez tenha que estudar as propriedades do mesmo ou então da impressora.

Olá João, blz?
A msg que aparece, na verdade, é a do word.
Vou testar sua dica, mas acho que não vai resolver.
Em que parte do código coloco essa variável do comando?

Abrasss!!!

Imediatamente antes da execução do mesmo, ou seja, será executado o comando e depois o restante do código.

Até mais.

Mas esse Response é uma variável, correto?
De qual tipo e o que fazer com ela?

Fala Luiz
Troque a informação anterior por esta

DoCmd.SetWarnings False

após executar o comando de envio da envio do relatório, repita o comando para habilitar novamente as mensagens, caso queira, mas substituindo False por True.

Não funcionou.
Segue abaixo a linha de código que chama o doc para impressão. Me mostre em qual parte a insiro.

Código:

Private Sub cmdOkMemo_Click()

Dim strArquivo As String
Dim strLocal As String
Dim imprime As Variant

strArquivo = "Memo - " & Me.txtNumMemo.Value & "-" & Format(Now(), "yyyy") & " - " & Me.txtAssunto.Value & ".docx"
strLocal = CurrentProject.Path & "\Relatórios\Memorandos Externos\" & strArquivo
               
Dim oApp As Object
               
If IsNull("strLocal") Then
    MsgBox ("Esse Memorando não existe!"), vbOKOnly + vbInformation
    Exit Sub
Else
    imprime = MsgBox("Confirma a impressão do Memorando " & Me.txtNumMemo.Value & "?", vbQuestion + vbYesNo, "Imprimir")
               
    Select Case imprime
        Case vbYes
            Set oApp = CreateObject("Word.Application")
            With oApp
                .Documents.Open strLocal
                .ActiveDocument.PrintOut Copies:=2
                .ActiveDocument.SaveAs strLocal
                .ActiveDocument.Close
            End With
            oApp.Quit
            Set oApp = Nothing
        Case vbNo
            DoCmd.CancelEvent
            MsgBox "Impressão Cancelada !", vbInformation, "Informando..."
    End Select
End If

End Sub

Grato.

Abrasss!!!

Grande Luiz

A mensagem, como vc havia citado, é específica do Word. Já me deparei com esse problema em documentos do próprio Word. Na ocasião foi resolvido mudando as configurações das margens. Eu não sei como fazer isso (configuração das margens) no VBA para enviar para o Word. Sempre trabalho com doc em PDF e esse problema não aparece.
Se vc inseriu o comando e, mesmo assim, a msg continua aparecendo, tenho grande certeza de que é do próprio Word.

   Select Case imprime
       Case vbYes
           DoCmd.SetWarnings False
           Set oApp = CreateObject("Word.Application")
           With oApp
               .Documents.Open strLocal
               .ActiveDocument.PrintOut Copies:=2

Testou dessa forma?

Sucesso!!!!!!!

Sim, exatamente assim que havia testado e não funfou.
Uso a maioria dos relatórios em PDF, mas alguns tem que ser no word, para edição depois, mas tem essa msg chata das margens. Atrasa um pouco a impressão.
Algum outro método conhecido?

Grato.

Infelizmente não conheço.
Deixe o tópico para ver ser outros colegas conseguem resolver pra ti.

Já pesquisou em algum fórum do Word?

Alguém pode dar uma luz, por favor?

Grato!

Bom dia.
Alguma dica hoje?

Boa tarde.
Como não obtive resposta e o tempo está curto, decidi arrumar no próprio doc do word mesmo.
Grato pela atenção de todos.

Abrasss!!!