More ... | 編集履歴:過去のバージョン2016/03/14 21:44:13 JST時点でのHSPPRINT互換モジュール:サンプルスクリプトの内容- →[[HSPPRINT互換モジュール]]に戻る ---- HSPPRINT互換モジュールの実行サンプルスクリプトです~% パブリックドメインです ---- {{{ /* HSPPRINT互換モジュールの実行サンプル CC0 1.0でライセンスします(CC0のコモンズ権利証 http://creativecommons.org/publicdomain/zero/1.0/deed.ja) */ #include "hspprint.as" #enum ID_WINDOW_MAIN =0 #enum ID_BUFFER_IMG buffer ID_BUFFER_IMG gsel ID_WINDOW_MAIN cls gosub *print_info_printer int_index=0 input int_index stop *print_info_printer gosub *get_list_printer redraw 0 color 255,255,255 boxf pos 0,0 color mes "プリンターは"+int_num_prn+"こです\nプリンタ" notesel str_list_printer repeat notemax noteget str_name_printer,cnt mes ""+cnt+" "+str_name_printer loop noteunsel getdefprn str_name_def_printer mes "\n既定のプリンターは"+str_name_def_printer+"です" redraw return *get_list_printer prnflags PRINTER_ENUM_CONNECTIONS+PRINTER_ENUM_LOCAL enumprn str_list_printer int_num_prn=stat return }}} |