From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-65-14.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00,T_SCC_BODY_TEXT_LINE
	autolearn=ham autolearn_force=no version=3.4.6
Date: Wed, 25 Jan 2023 14:15:30 +0100
MIME-Version: 1.0
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:102.0) Gecko/20100101
 Thunderbird/102.6.1
Newsgroups: comp.lang.ada
Content-Language: en-GB
From: ldries46 <bertus.dries@planet.nl>
Subject: GTk Printing a obe page document
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <nnd$5e699f34$1bf36c49@936ee7c06dadaab8>
Organization: KPN B.V.
Path: eternal-september.org!reader01.eternal-september.org!news.mixmin.net!newsreader4.netcologne.de!news.netcologne.de!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer01.ams4!peer.am4.highwinds-media.com!news.highwinds-media.com!feed.abavia.com!abe005.abavia.com!abp002.abavia.com!news.kpn.nl!not-for-mail
Injection-Date: Wed, 25 Jan 2023 14:15:32 +0100
Injection-Info: news.kpn.nl; mail-complaints-to="abuse@kpn.com"
X-Received-Bytes: 1008
Xref: reader01.eternal-september.org comp.lang.ada:64881
List-Id: <comp.lang.ada>

In the same program I can print multiple page documents but one page 
documents are not printed.
Set_N_Pages (Print_Op, nr_Pages); in this statement nr_Pages is filled 
correctly. What can I do or where should I look for some kind of bug.