如何安装Acrobat PDF虚拟打印机

Tags:Acrobat Pdf, 虚拟打印机.

安装了Acrobat Pro后，发现系统没有中并没有增加相应的虚拟打印机，那么除了重装以外，是否还有办法安装Acrobat PDF虚拟打印机呢？答案是肯定。

1）在控制面板添加打印机，端口选择与Adobe关联的”Adobe PDF Port”，如果找不到这个端口，那您不用往下看了，只有重装一条路可言。
2）选择从磁盘安装，目录指向Acrobat文件夹下的Xtras子目录下的AdobePDF目录，找到AdobePDF.inf文件
X:\Program Files\Adobe\Acrobat 9.0\Acrobat\Xtras\AdobePDF
3）选择安装
4）将重命名为“Adobe PDF”，否则右键菜单及Office中用转换指令的时候还是会有错误。
—————————————————————————

how-to-install-the-acrobat-pdf-virtual-printer
1) Open the control panel, add printer..
2) Add a local printer
3) choose a printer port about Acrobat PDF named “Adobe PDF Port”，If you can’t find this port, you have to uninstall the software ,and reinstall the acrobat pro.
4) Hard DISK install form such as “X:\Program Files\Adobe\Acrobat 9.0\Acrobat\Xtras\AdobePDF”
5) rename the printer name as “Adobe PDF”

获取人名拼音首字母的excel函数

Tags:excel, 拼音首字母.

用途：Palm通讯录中直接通过键盘字母调用联系人；
用法：
1.将palm软件同步到系统中，将通讯录到处成CSV文件；
2.在Excel中新建一个模块，将下面的代码复制进去，在excel界面调用HYPY函数即可。

Function HYPY(myStr As String) As String
Dim L As Integer, i As Integer
Dim GetPY As String, N As String
On Error Resume Next

HYPY = GetPY
End Function


祝赵大小姐生日快乐

Tags:生日.

你知道我不能没有钱，因为钱能帮我给你买蛋糕送你；
你也知道，我不能没有蛋糕，因为今天是你的生日，我不能乜有你；
因为乜有你，我要钱有何用？

好吧，甜言蜜语时间结束了，来点实惠的，今天晚上我的时间由你来支配，你叫我往西，我不敢往东；你叫我吃饭，我不敢喝水；叫我拖地，我不敢擦桌子……

via：赵大小姐博客

收了一台Dell™ OptiPlex™ 960 DT

Tags:dell, Dell™ OptiPlex™ 960, OP960.

从playnb的马丁手里收了一台OP960，三年保,3600元包运费，配置如下：

CPU：E7300 4G 320G DVDRW Q45 三年保 Vista XP 双系统
intel 5300 无线套 OP960专用
贝尔金 displayport 转 HDMI 线

以下照片借用卖家滴。。

没想到会买DELL的品牌机。

现在有个问题，感觉电源风扇的噪音比较大，莫非还要自己改造一番？

更新feedburner订阅地址

Tags:feedburner, rss.

feedburner用户系统也全部将引入到google account中，除了后台管理地址变更以外，居然rss订阅地址也更新了，feeds变为了feeds2，这名字可真够二的。
最新feedburner订阅地址如下：

http://feeds2.feedburner.com/jjuvblog
http://feedproxy.google.com/jjuvblog

欢迎订阅，虽然没有啥内容。

另外，预告一下，
1、购买了传说中的星星电视，会更新一下dm500s的刷机方法，以及相应的备份帐号方法，^_^
2、利用业余时间，参照dtt的AS，做了excel vba的一个小程序-tick marks，近期将放出下载

Excel工作簿中工作表分别保存为文件

Tags:excel, VBA, 保存.


Sub fenchai()
On Error Resume Next
Dim WB As Workbook, i As Integer
Set WB = ThisWorkbook
For i = 1 To WB.Worksheets.Count '获得工作簿中表的个数
WB.Worksheets(i).Copy '复制工作表
ActiveWorkbook.SaveAs Filename:="c:\分拆文档\" & WB.Worksheets(i).Name & "TB.xls" '保存文档
ActiveWindow.Close
Next i
End Sub

再见，CPH

Tags:CPH, LampDrive, 搬家.

LampDrive(前身为CPH）最近接上级通知，对低俗及不健康信息，未备案的，以及欠费的用户进行了清理，我和赵大小姐的博客也在其中。很不好意思，我被关闭的原因是欠费，一言难尽，按下不表吧。
今天正式将博客转入Slicehost，感觉速度比CPH略慢，但也在可忍受范围内，因为有了SSH，实际使用起来更加方便了。
翻译克鲁格曼的blog，由于停止翻译很久了，暂时不启用，重新启用后，也将会转入blogspot。

好了，搬家结束，以后就跟着麦克混了，超喜欢他博客的STYLE。

如何将excel工作薄中的单列数据复制到不同的新工作簿中

Tags:excel, VBA, 汇总.

汇总报表中单列公司的数据要分发到下属公司，如果每一列都复制到新工作簿另存，工作很大，所以编写了一段VBA来代替重复的手工劳动
Sub add_new()
On Error Resume Next
With Worksheets("Detail line-consolidation") '汇总报表
For i = 3 To 35
Dim fname As String
fname = .Cells(3, i) '取公司名称
Dim mybook As Workbook
Set mybook = Workbooks.Add
mybook.SaveAs "d:\vba\" & fname & ".xls"
col = Split(Cells(3, i).Address, "$")(1) '取列名
.Range("a2:b169").Copy
Windows(fname & ".xls").Activate
Range("a1").PasteSpecial
.Range(col & "2:" & col & "169").Copy
Windows(fname & ".xls").Activate
Range("c1").PasteSpecial
Workbooks(fname & ".xls").Close savechanges:=True
Set mybook = Nothing
Next i
End With
End Sub

责任认定

着火了是违规燃放烟花，矿难了是违规操作，火车出轨了是违规提速。

http://singularitys.spaces.live.com/Blog/cns!746E8659C6CDA329!1185.entry

外公走好

外公走好，我们永远爱你

http://www.zhaojingjing.com/blog/articles/grandfather.html