CLOSE PRINTER
|
|
(logical-printer-name) |
|
| (printer-number) |
Dieses Dokument behandelt folgende Themen:
Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.
Verwandte Statements: AT END OF PAGE | AT TOP OF PAGE |DEFINE PRINTER | DISPLAY | EJECT | FORMAT | NEWPAGE | PRINT | SKIP | SUSPEND IDENTICAL SUPPRESS | WRITE | WRITE TITLE | WRITE TRAILER
Gehört zur Funktionsgruppe: Erstellen von Ausgabe-Reports
Das Statement CLOSE PRINTER dient dazu, einen bestimmten
Drucker zu schließen. Mit dem CLOSE PRINTER-Statement können Sie
explizit in einem Programm angeben, dass ein Drucker geschlossen werden
soll.
In folgenden Situationen wird ein Drucker automatisch geschlossen:
wenn ein DEFINE
PRINTER-Statement, in dem derselbe Drucker wieder
definiert ist, ausgeführt wird;
bei Erreichen des Kommando-Modus.
Wenn ein Drucker geschlossen wird, dann wird das zu dem Drucker
gehörende Profil (siehe PROFILE-Klausel
des DEFINE
PRINTER-Statements) gelöscht, d.h., dies betrifft alle
weiteren Schreibaktionen auf diesem Drucker.
| logical-printer-name |
Logischer Drucker-Name:
Mit logical-printer-name geben Sie den
Drucker an, der geschlossen werden soll. Der Name entspricht den Angaben in dem
Für den logical-printer-name gelten die gleichen Namenskonventionen wie für Benutzervariablen; siehe Namenskonventionen für Benutzervariablen in der Dokumentation Natural benutzen. |
|---|---|
| printer-number |
Drucker-Nummer:
Außer dem logical-printer-name können Sie auch die printer-number nehmen, um anzugeben, welcher Drucker geschlossen werden soll. Die printer-number kann eine Zahl von 0
bis 31 sein. Diese Zahl kann auch in einem Die printer-number 0 gibt den Hardcopy-Drucker an. |
** Example 'CLPEX1': CLOSE PRINTER
************************************************************************
DEFINE DATA LOCAL
1 EMP-VIEW VIEW OF EMPLOYEES
2 PERSONNEL-ID
2 NAME
2 FIRST-NAME
2 BIRTH
*
1 #I-NAME (A20)
END-DEFINE
*
DEFINE PRINTER (PRT01=1)
*
REPEAT
INPUT 'SELECT PERSON' #I-NAME
IF #I-NAME = ' '
STOP
END-IF
FIND EMP-VIEW WITH NAME = #I-NAME
WRITE (PRT01) 'NAME :' NAME ',' FIRST-NAME
/ 'PERSONNEL-ID :' PERSONNEL-ID
/ 'BIRTH :' BIRTH (EM=YYYY-MM-DD)
END-FIND
/*
CLOSE PRINTER (PRT01)
/*
END-REPEAT
END