怎样在vb中测试打印端口是否准备好？

用这个API试一试
VB声明 
Declare Function AddPrinterConnection Lib "winspool.drv" Alias "AddPrinterConnectionA" (ByVal pName As String) As Long 
说明 
连接指定的打印机 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
pName String，网络上的一台打印机的名字