用Lisp 怎么打开打印机设置的 打印首选项 ？

lxw320

用VB 可以实现所说功能，但是不清楚用Lisp怎么写。
VB代码如下：

1. Private Sub Command1_Click()
   
2. Call Shell("rundll32.exe printui.dll," & "PrintUIEntry /e
   
3. /n\\" & Environ("computername") & "\\""" & "Adobe
   
4. PDF" & """", vbNormalFocus)
   
5. End Sub
   

Private Sub Command1_Click()<br /> Call Shell("rundll32.exe printui.dll," & "PrintUIEntry /e<br /> /n\\" & Environ("computername") & "\\""" & "Adobe <br /> PDF" & """", vbNormalFocus)<br /> End Sub<br />

zzyong00

start
......................