Office中国论坛/Access中国论坛

标题: “豆腐无罪”——设置默认打印机 [打印本页]

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

作者: 13601812106_01 时间: 2012-9-17 08:09
GOOD ZHICHI

作者: xie62 时间: 2012-9-17 08:14
学习学习

作者: lynnwang 时间: 2012-9-17 09:33
顶你，我也参加游行罗，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 时间: 2012-9-17 21:28

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

Private Sub Form_Load()

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)