如何实现打印功能？

angei83

工作之余学习看了一个月autolisp入门视频，学了个一知半解，想要实现自己的功能太难，在此请教各位大佬。
最终是想实现批量打印的功能，想先实现简单的打印功能，不知道如何进行了。

想请教各位大佬，打印的函数是什么？打印名称是否可以自己动获取？有没有相关的程序代码让我参考一下，谢谢。
以下是我的lsp文件：
(defun c:pp1()
      (setvar "cmdecho" 0)
      (setq dlg_id (load_dialog "G:\\AutoLISP入门实例视频教程\\练习\\ppd\\ppd"))
      (if (< dlg_id 0) (exit))
      (if (not (new_dialog "pldy" dlg_id)) (exit))

      (action_tile "but_s" "(getdata) (done_dialog 2)")
      (action_tile "accept" "(done_dialog 1)")
      (action_tile "cancel" "(done_dialog 0)")
      (setq std (start_dialog))
      (unload_dialog dlg_id)
      (cond ((= std 1) (princ "确定"))
            ((= std 0) (princ "取消"))
            )
      (princ)
     )
以下是我的DCL
pldy:dialog{
        label="打印选项";
        :popup_list{
                label="选择打印机";
                edit_width=30;
                list="Adobe PDF\nAutoCAD PDF (General Documentation).pc3\nDWF6 ePlot.pc3";
                value=0;
                }
                :popup_list{
                        label="选择纸张";
                        edit_width=5;
                        list="A3\nA4";
                        value=1;
                }
                :button{
                        label="选择打印窗口>";
                        key="but_s";
                        }
        spacer_1;
                :radio_row{
                        label="图形方向";
                        :radio_button{
                                label="横向";
                                value=1;
                        }
                        :radio_button{
                                label="纵向";
                        }                        
                }        
        spacer_1;
        ok_cancel;
}