“豆腐无罪”——设置默认打印机

roych

       在临近“九一八事件”纪念日的这几天，各地的游行示威也逐渐变得如火如荼了。忽然想起几天前，一个同事点“日本豆腐”，我笑说，“现在都什么时候了，还敢点这个菜，不怕人家给打砸了啊？”她想想，“那……换家常豆腐好了。”
       我当然是开玩笑的了。难道因为这名字，吃了就会被当成汉奸吗？毕竟这豆腐还是中国出产的，而且饭店也还是中国的。豆腐何罪呢？退一万步来说，即便是进口的，这只是个人选择的权利罢了，又怎能以此上纲上线呢？
       正如设置默认打印机一样，需要设置哪台，又或者全都不设置，这只是一种选择，跟打印机没关系。打印机无罪，驱动无罪。不是么？
      谨以此实例送给所有理性爱国版友。
      

13601812106_01

GOOD ZHICHI

xie62

学习学习

lynnwang

顶你，我也参加游行罗，FUCK日本

Private Sub Form_Load()
'初始化，列出所有打印机，并写入列表框中
For Each IntPrt In Application.Printers
   Me.List1.AddItem IntPrt.DeviceName
Next   
End Sub

这段会报错，改为:
Private Sub Form_Load()
'初始化，列出所有打印机，并写入列表框中
dim IntPrt as object
For Each IntPrt In Application.Printers
   Me.List1.AddItem IntPrt.DeviceName
Next   
End Sub

在给他人中的任何代码中务必加上
Option Explicit

roych

lynnwang 发表于 2012-9-17 09:33
顶你，我也参加游行罗，FUCK日本

Private Sub Form_Load()

奇怪噢。我测试过时可是没有报错的哦，不过定义变量时，我一般用：
Dim IntPrt As Application.Printer