Θέμα: Ερωτήματα Οριζόντια Εκτύπωση

Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 02-12-10, 23:49
Το avatar του χρήστη editolis
editolis Ο χρήστης editolis δεν είναι συνδεδεμένος
Super Moderator
Όνομα: Τολης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-01-2010
Περιοχή: ATHENS-GREECE
Μηνύματα: 180
Προεπιλογή

Για να γινει αυτο που θελεις θα πρεπει καταρχην να αλλαξουμε εξ' όρισμου το οριεντεισιον του εκτυπωτη. Και μετα να τρεξεις το ερωτημα σου.

Αυτο μεσα απο VBA προσωρινα μπορει να γινει με την εξης εντολη:

Application.Printer.Orientation = acPRORLandscape
DoCmd.OpenQuery "qryTEST", acViewPreview, acEdit

Οπου qyTEST το ερωτημα σου.

Μετα για να επιστρεψεις τον εκτυπωτη στο κανονικο οριεντεισον θα δωσεις την εξης εντολη:

Application.Printer.Orientation = acPRORPortrait

Νομιζω οτι ειναι αυτο που ζητας.

Καλη συνεχεια...
Απάντηση με παράθεση