主题：请问有什么方法标记当前数据(窗口单据)是否打印过?

无法准确判断是否有链接打印机的。不过你可以试试

记得引用 System.Management.dll

1、状态值

 其他状态= 1,
 未知,
 空闲,
 正在打印,
 预热,
 停止打印,
 打印中,
 离线

2、代码

Dim pname As String = DefaultPrinter

Dim printer = New System.Management.ManagementObject("win32_printer.DeviceId='" & pname & "'")
printer.Get()
Dim result = val(printer.Properties("PrinterStatus").Value)
msgbox(result)