一个直接打印的难题，请教大家。

Question

电脑的lpt1口上连接了一台惠普激光打印机，现在不通过打印驱动程序，直接对lpt1口进行操作，要求在一张A4白纸离左顶端5厘米的地方打印一个5*5厘米的实心黑快。分析这个问题，无非是几个问题：1，直接输出打印命令到并口2，先控制打印机走纸5厘米3，然后定位在距离左边5厘米的地方开始打印4，这个黑块其实是由点组成的，那点的大小又是多少呢？与打印机分辨率有关？我只可以想出这么多了，请各位大虾赐教。

Answer 1

1.
Open "PRN" For Output As #1

Answer 2

我也没有试过。
Open "PRN" For Output As #1
打开后。
将一个只有黑块的图片输出到PRN

Answer 3

设置FONTSIZE，PRINT  Chr(&HA1F6)

Answer 4

楼主借地方用一下啊，谢谢，小弟很急啊
我在建立根节点的时候用的是这样的代码
Private Sub Form_Load()
    Dim NodX As Node
    Do While Data1.Recordset.EOF
        Set NodX = TreeView1.Nodes.Add(, , Chr(Data1.Recordset.Fields("编号1").Value), Data1.Recordset.Fields("公司").Value)
        NodX.Tag = Data1.Recordset.Fields("编号1")
        Data1.Recordset.MoveNext
    Loop
End Sub
系统老是报错“错误91，对象变量或with块变量未设置”
我明明把data控件设定好了，数据库也绑定正确，真是奇怪啊！