Como fazer programaticamente uma consulta no MS Access padrão para paisagem quando impressa

Question

Como posso programaticamente fazer com que uma consulta no MS Access seja padrão para paisagem quando impressa, especificamente ao visualizá-la como um gráfico dinâmico?Atualmente estou tentando fazer isso no MS Access 2003, mas gostaria de ver uma solução para qualquer versão.

Answer 1

A seguinte função deve resolver o problema:

Function SetLandscape()
   Application.Printer.Orientation = acPRORLandscape
End Function

Deve ser capaz de chamar isso da função autoexec para garantir que sempre seja executado.

Answer 2

Sim, a chamada de ahockley define a orientação da impressora do aplicativo para paisagem.Eu tentei uma experiência e funcionou bem.Eu sei que isso não produz uma tabela dinâmica, mas não configurei uma para usar, então ela abre e imprime uma consulta normal.

Private sub
    Application.Printer.Orientation = acPRORLandscape
    DoCmd.OpenQuery "qry1", acViewNormal, acReadOnly
    DoCmd.PrintOut acPrintAll
End Sub

Se quiser fechar a consulta após imprimi-la, adicione:

docmd.Close acQuery, "qry1", acSaveNo