各位,把如下VB6有关条码打印代码转为C#(急),在线等Dim x As PrinterPrivate Sub Form_Load()
Dim mstrDeviceName As String
Dim blnPrintBlank As Boolean
mstrDeviceName = "Zebra 888-TT"
For Each x In Printers
If x.DeviceName = mstrDeviceName Then
Set Printer = x
Exit For
End If
Next
Printer.PrintQuality = -4
Printer.PaperSize = vbPRPSUser
Printer.ScaleMode = 6 '计算单位(毫米) Printer.Print "测试"
Printer.EndDoc
End Sub
Dim mstrDeviceName As String
Dim blnPrintBlank As Boolean
mstrDeviceName = "Zebra 888-TT"
For Each x In Printers
If x.DeviceName = mstrDeviceName Then
Set Printer = x
Exit For
End If
Next
Printer.PrintQuality = -4
Printer.PaperSize = vbPRPSUser
Printer.ScaleMode = 6 '计算单位(毫米) Printer.Print "测试"
Printer.EndDoc
End Sub
解决方案 »
- DataGridView 内容太长时换行显示
- 求一个算法。
- c# 点击webBrowser里面网页按钮的实现
- 关于一个学生信息管理系统
- 代码求解~~
- 下面代码g.DrawImage(Image.FromFile(files[i]),i%3*120,i/3*120,100,100)会内存不足是什么原因?
- 高分求在Repeater里放一个相对于Repeater位置为200px的DataList
- Console.Write("{0,3:d}",j);
- 300分阶段求devercn的短信源码?http://dev.csdn.net/article/39/article/38/article/38/38547.shtm
- CSharpProgrammer(风儿吹过) 请进 关于 Devexpress控件
- EXCEL导入SQL的问题
- c#自定义控件嵌套控件问题
{
string mstrDeviceName;
bool blnPrintBlank;
mstrDeviceName = "Zebra 888-TT"; foreach(x in Printers)
{
if(x.DeviceName==mstrDeviceName)
{
Printer = x;
break;
}
}
}