PROCEDURE View_Print;

VAR

	i,Result	:INTEGER;



BEGIN

	IF SheetNum<>0 THEN

	BEGIN

		FOR i:=1 TO SheetNum DO

		BEGIN 

			VRestore(SheetList(i));



			CASE AlertQuestion('印刷を実行しますか？',Concat('現在、「',SheetList(i),'」を表示中です。'),1,'印刷','中止','印刷ダイアログ','') OF

				1:	Result:=PrintWithoutUsingPrintDialog;

				2:	Result:=PrintUsingPrintDialog;

				OTHERWISE	;

			END;

		END; 

	END

	ELSE AlrtDialog('登録画面がありません');

END;



Run(View_Print);