求大神 帮忙将已下代码转换成vb.net
/// <summary>
/// 打印测试:使用的是TCP/IP通讯,利用斑马打印机cpcl指令;
/// </summary>
[WebMethod(Description = "打印测试")]
public void PrintTest(string prstr, string printIp)
{
StringBuilder CPCLString = new StringBuilder();
CPCLString.Append("! 0 200 200 250 1");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("PW 609");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("TONE 0");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("SPEED 3");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("ON-FEED IGNORE");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("NO-PACE");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("COUNTRY CHINA");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("CENTER");
CPCLString.Append(Environment.NewLine);
CPCLString.AppendFormat("T 55 0 0 5 测试:{0}", prstr);
CPCLString.Append(Environment.NewLine);
CPCLString.AppendFormat("B 128 2 1 119 0 59 {0}", prstr);
CPCLString.Append(Environment.NewLine);
CPCLString.Append("FROM");
CPCLString.Append(Environment.NewLine);
CPCLString.Append("PRINT");
CPCLString.Append(Environment.NewLine);
try
{
TcpClient client = new TcpClient(printIp, Convert.ToInt16("6101"));
NetworkStream ns = client.GetStream();
//字符串后一定要加回车换行才能执行打印
//byte[] bytes = Encoding.GetEncoding("UTF-8").GetBytes(CPCLString.ToString() + "\r\n");
byte[] bytes = Encoding.GetEncoding("gb2312").GetBytes(CPCLString.ToString());
ns.Write(bytes, 0, bytes.Length);
ns.Close();
client.Close();
}
catch (Exception ex)
{
StringBuilder sb = new StringBuilder();
sb.AppendFormat("方法名:{0}", MethodBase.GetCurrentMethod().Name);
sb.AppendLine();
sb.AppendFormat("出错时的参数值:string prstr={0}", prstr);
sb.AppendLine();
sb.AppendFormat("出错描述:{0}", ex.Message);
Logger.WriteLog(sb.ToString());
}
}