Εκτύπωση και Προεπισκόπηση (Μ2000)

Στην αναθεώρηση 73 βελτίωσα πολύ την εκτύπωση. Εδώ ένα παράδειγμα με προεπικόπηση εκτύπωσης!

Αν θέλουμε να αλλάξουμε εκτυπωτή κάνουμε αυτό:
Εκτυπωτής ?
Εκτυπωτής 12, Επιλογή$(Επιλογή)
ή καλύτερα για να αποκλείσουμε την μη επιλογή (είναι το Επιλογή=0), μέσα από πρόγραμμα
Αν Επιλογή>0 τότε Εκτυπωτής 12, Επιλογή$(Επιλογή)
Η εντολή Εκτυπωτής ? γεμίζει τον πίνακα Επιλογή$() με όλους τους εκτυπωτές - και εκείνους στο δίκτυο.

Αν θέλουμε να αντιγράψουμε το όνομα για να το βάλουμε ως μόνιμη επιλογή στο πρόγραμμα τότε κάνουμε αυτό
Πρόχειρο Εκτυπωτής$
και στον διορθωτή κάνουμε επικόλληση  (ctrl+v) αφού γράψουμε το Εκτυπωτής 12,""
Το 12 λέει απλά να είναι 12άρια τα γράμματα. Αλλά αυτά θα αλλάξουν με την εντολή Φόρμα.
Οπότε την εντολή αυτή θα την βάλουμε πρώτη!

          \\ Ένα παράδειγμα προεπισκόπησης εκτύπωσης
          \\ Επιπλέον φαίνεται και η χρήση των προς και διαμέσου 
          \\ Το πρόγραμμα θα ετοιμάσει δυο σελίδες, θα μας τις δείξει
          \\ πατάμε ένα πλήκτρο για την επόμενη
          \\ και θα μας ρωτήσει με ένα πλαίσιο διαλόγου αν θέλουμε να τυπώσουμε
          \\ Εδώ μπορούμε να έχουμε επιλέξει εκτυπωτή, με τις παρακάτω εντολές:
           \\ Εκτυπωτής \\ δείχνει τον εκτυπωτή που θα χρησιμοποιήσει
          \\ Εκτυπωτής ? \\ βγάζει λίστα για επιλογή εκτυπωτή
          \\ Εκτυπωτής ! \\ βγάζει τις ιδιότητες για να τις αλλάξουμε, αν θέλουμε
          \\ Μπορεί κανείς να χρησιμοποιήσει το OneNote για να δει την εξαγωγή χωρίς να τυπώσει!
    
                       Με_Εκτύπωση = Ψευδές
                      Σελίδα 1 \\ κάθετη 1, οριζόντια 2. Εδώ θέλουμε κάθετη.
           εδώ_ξανά: \\ αυτό λέγεται ετικέτα με όνομα. Μόνο σημειώσεις μετά στην ίδια γραμμή!
                       Φόρμα 64, 66;
                       Τύπωσε "Αυτή είναι η πρώτη Σελίδα"
                       Τύπωσε Γραμματοσειρά$, Τύπος
                      Δρομέας 0, Ύψος / 2
                       \\ η Τύπωσε μέρος πετάει τις αλλαγές* και δεν αλλάζει γραμμή
                      \\ *Εδώ η αλλαγή είναι στο $(6, πλάτος), όπου ορίζω με το 6 αναλογική γραφή,
                       \\ κεντράρισμα, και πλάτος στήλης όλη τη γραμμή.
                       Τύπωσε Μέρος $( 6, Πλάτος ), "Κέντρο"
                       Θέση Χ.Σημεία / 2, Υ.Σημεία / 2
                       Κύκλος Χ.Σημεία / 2
                       \\ Θα διαβάσουμε τα ύψος, πλάτος σε σημεία (twips)
                       \\ Και θα φτιάξουμε μια όμοια σελίδα στην οθόνη
                      \\ αντιστρέφοντας πλάτος με ύψος
                      \\ θα βάλουμε το ίδιο μέγεθος χαρακτήρων
                      Πλ = Χ.Σημεία
                      Υψ = Υ.Σημεία
                      μέγεθος_χαρακτήρων = Τύπος
                      Διαμέσου Περιμένω_Πάτημα_Πλήκτρου( Με_Εκτύπωση )
                       Διαμέσου Οριζόντια_Σελίδα( Με_Εκτύπωση )
                       Αναφορά 2, "Αυτή είναι μια οριζόντια Σελίδα, η 2η."
                       Θέση Χ.Σημεία / 3, Υ.Σημεία / 2
                       Κύκλος Υ.Σημεία / 3
                       Βήμα Χ.Σημεία / 3, 0
                       Κύκλος Υ.Σημεία / 3
                       Αν Οχι Με_Εκτύπωση Τότε {
                                   Αν Ρώτα( "Να τυπώσω τώρα;" ) = 1 Τότε {
                                         Εκτύπωση Ναι
                                        Πένα 0
                                         Με_Εκτύπωση~ \\το κάνει Όχι Με_Εκτύπωση
                                        Προς εδώ_ξανά
                                  }
                       }Αλλιώς {
                              Εκτύπωση Οχι
                      }
                       Φόρμα 60, 30

                       \\ Ο διερμηνευτής βρίσκει το Ρουτινα και τερματίζει το τμήμα!
                       \\ Ενώ γενικά όπου θέλουμε βάζουμε τόνους
                       \\ Στο Ρουτινα στον ορισμό δεν βάζουμε τόνο,
                       \\ γιατί ο διερμηνευτής αναζητεί τη λέξη χωρίς τόνο,
                       \\ για να βρει τον ορισμό της ρουτίνας
                       \\ οι ρουτίνες δεν καταχωρούνται όπως τα τμήματα, είναι μέρη του τμήματος, με όνομα.
           Ρουτινα Οριζόντια_Σελίδα( Τοπική_Να_Τυπωσω )
                       Αν Τοπική_Να_Τυπωσω Τότε {
                             Σελίδα 2
                       }Αλλιώς Τύπος μέγεθος_χαρακτήρων, Υψ, Πλ
          Τελος Ρουτινας
          Ρουτινα Περιμένω_Πάτημα_Πλήκτρου( Τοπική_Να_Τυπωσω )
                       Αν Οχι Τοπική_Να_Τυπωσω Τότε {
                              ? "Περιμένω..."
                              ένα_πλήκτρο$ = Κομ$
                        }
           Τελος Ρουτινας

 

Με ΦΟΡΜΑ 70,70 μπορούμε να δούμε όλο το πρόγραμμα (το αντέγραψα από εδώ...). Το πρόγραμμα που το χρωματίζει σε html είναι παλιό, και βάζει διαστήματα...στα σύμβολα. Θα το φτιάξω και θα το ενσωματώσω στο περιβάλλον.