急救，一段代码转换(200分)

本人有段pos 实达300的打印机的切纸程序，不过是用vc写的，有哪位可以把它转换为vb 代码
谢谢inline void TDevCSPC::_PrnCutPaper()
{
_PrnPortOuts((unsigned char*)"/x1b", 1);切纸指令先用/X1b初始化，
_PrnPortOuts((unsigned char*)"d0/x1e", 3);
再用d0/x1e控制切纸刀。
}
vb 的打印方法：
Open "lpt1" For Output As #1
Print #1, ?
Print #1, ?
Close #1

Open "lpt1" For Output As #1
Print #1, "/x1b" ,1
Print #1, "d0/x1e" ,3
Close #1

各位我发贴这么久了才一个人给出意见，可是没有对但是我不是要感谢他，是不是真的没有高手呀？

你要把 TDevCSPC 这个类的定义贴出来，否则没有帮你。
但我觉得可能是这样：
_PrnPortOuts((unsigned char*)"/x1b", 1);切纸指令先用/X1b初始化，
_PrnPortOuts((unsigned char*)"d0/x1e", 3);
再用d0/x1e控制切纸刀。
/x1b 和 /x1e 是转义字符，分别为 chr(27) chr(30)
第一句发送 1 个字符 chr(27)
第二句发送 3 个字符 “d0”+ chr(30)
因为不知道_PrnPortOuts这个函数换不换行，你可以试一下：
假设不换行：print #1,chr(27)+"d0"+chr(30)
或者（假设换行）
print #1,chr(27)
print #1,"d0"+chr(30)