CLOSE PRINTER

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

Funktion

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.

Syntax-Beschreibung

Syntax-Element-Beschreibung:

Syntax-Element Beschreibung
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 DEFINE PRINTER-Statement, in dem Sie den betreffenden Drucker definiert haben.

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 DISPLAY-, WRITE- oder DEFINE PRINTER-Statement benutzt werden.

Die printer-number 0 gibt den Hardcopy-Drucker an.

Beispiel 

** 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