Wie kann ich programmgesteuert eine Abfrage in MS Access standardmäßig auf Querformat drucken, wenn sie als PivotChart angezeigt wird? Ich versuche dies derzeit in MS Access 2003, würde aber gerne eine Lösung für jede Version sehen.Wie programmgesteuert eine Abfrage in MS Access beim Drucken standardmäßig auf Querformat gesetzt wird
Die folgende Funktion sollte es tun:
Function SetLandscape()
Application.Printer.Orientation = acPRORLandscape
End Function
Sollte dies nennen kann, von der autoexec Funktion zu gewährleisten, ist es immer läuft.
Ja ahockleys Anruf setzt die Druckerausrichtung der Anwendung auf Querformat. Ich habe ein Experiment versucht und es hat gut funktioniert. Ich weiß, dass dies keine Pivot-Tabelle erzeugt, aber ich habe keine für die Verwendung eingerichtet, so dass eine normale Abfrage geöffnet und gedruckt wird.
Private sub
Application.Printer.Orientation = acPRORLandscape
DoCmd.OpenQuery "qry1", acViewNormal, acReadOnly
DoCmd.PrintOut acPrintAll
End Sub
Wenn Sie die Abfrage nach dem Drucken um es schließen möchten, fügen:
docmd.Close acQuery, "qry1", acSaveNo