.Net中的打印A4纸如何实现（以C#为例）——VB中的Printer.Print在.Net中如何实现

在VB中，如果要打印打印A4文档，且内容是从DB中，或者DataGrid中等动态获取的，实现起来非常简单，诸如以下代码（rs表示一记录集）：

    rs.MoveFirst
    Printer.PaperSize = vbPRPSA4
    Printer.Orientation = vbPRORPortrait
    Printer.FontName = "Courier New"
    Printer.FontBold = True
    Printer.FontSize = 24
    Printer.Print "               FQA Report"
    Printer.FontSize = 16
    Printer.Print "   Pallet ID:" & Trim(rs("pallet_id"))
    
    NewLine2 = String(100, " ")
    Mid(NewLine2, 1, 5) = "NO#"
    Mid(NewLine2, 10, 30) = "System S/N"
    Mid(NewLine2, 35, 20) = "BOX_ID"
    Mid(NewLine2, 60, 20) = "Pallet_ID"
    
    While Not rs.EOF
        NewLine2 = String(100, " ")
        Mid(NewLine2, 1, 5) = Trim(rs("No"))
        Mid(NewLine2, 10, 30) = Trim(rs("SN"))
        Mid(NewLine2, 35, 20) = Trim(rs("BOX_ID"))
        Mid(NewLine2, 60, 20) = "" & Trim(rs("Pallet_ID"))
        Printer.Print NewLine2
        rs.MoveNext
    Wend
    
    Printer.Print NewLine2
    Printer.Print String(100, "-")

    在上述代码中，如果记录集中的数量很多，即内容超出了一页纸，程序不用做任何设置，便会自动分页，那么到.Net中，如何实现这么一个简单的功能呢？
    查了好多资料，上网搜了好久，发现没有类似的例子，看了MSDN后，才发现，到VB.Net中，VB中那么好用的Printer不见了，一下为MSDN的描述：http://msdn.microsoft.com/zh-tw/library/cc438273(VS.71).aspx

"Visual Basic 6.0 中的 Printer 物件在 Visual Basic .NET 中是由 PrintDocument 组件取代。两者的行为不同，但在多数情况下可复制功能。下表将列出 Visual Basic 6.0 属性 (Property)、方法及事件与其 Visual Basic .NET 对等用法。如果没有直接的对等用法，则会提供连结以取得其它信息。除非另外注明，否则所有的对象都是在 System.Drawing 命名空间中。"

第一感觉是，在.Net中有比这更好用的打印功能，而且功能更强大，于是开始翻书，上网找例子，花了好长时间后，终于在网上找到了两个例子，跟教科书（C#高级编程第四版第25章，VB 2005入门经典第7章）里的例子差不多，例子中都是要先打开文档，LoadFile后，然后计算中共有多少行，然后设置一些属性等等，虽然功能强大，但是极其复杂，不能直接拿来用，于是只好自己改写。。。

打印Function：

public bool PrintDoc()
{
    try
    {
        //获取需要打印的内容
        string strSQL = "exec [usp_PalletPrintDocInfo] '" 
            + Parameters.strStation + "', '" + Parameters.strPalletID + "'";
        dsPrintInfo = doDB.GetDataSet(strSQL);
        if (dsPrintInfo.Tables[0].Rows.Count < 1 || dsPrintInfo.Tables[1].Rows.Count < 1)
        {
            Parameters.strMsg = "Get Print Information Error";
            return false;
        }

        //打印
        PrintDocument printDocument = new PrintDocument();
        printDocument.PrintPage += new PrintPageEventHandler(this.pd_PrintPage);
        printDocument.Print();

        ////打印预览，调试的时候，可以通过这个，节约纸张
        //PrintPreviewDialog ppd = new PrintPreviewDialog();
        //PrintDocument pd = new PrintDocument();
        //pd.PrintPage += new PrintPageEventHandler(this.pd_PrintPage);
        //ppd.Document = pd;
        //ppd.ShowDialog();

        return true;
    }
    catch(Exception ex)
    {
        Parameters.strMsg = ex.Message.ToString();
        return false;
    }
}

 

上面代码中，核心的是下面这个事件，调用pd_PrintPage方法：

//打印
PrintDocument printDocument = new PrintDocument();
printDocument.PrintPage += new PrintPageEventHandler(this.pd_PrintPage);
printDocument.Print();

 

pd_PrintPage方法：

//打印A4纸用的变量

private void pd_PrintPage(object sender, PrintPageEventArgs e)
{
    string strLine;//用于存放当前行打印的信息            
    float leftMargin = (e.MarginBounds.Left) * 3 / 4;   //左边距
    float topMargin = e.MarginBounds.Top * 2 / 3;       //顶边距
    float verticalPosition = topMargin;                 //初始化垂直位置，设为顶边距

    Font mainFont = new Font("Courier New", 10);//打印的字体
    //每页的行数，当打印行数超过这个时，要换页(1.05这个值是根据实际情况中设定的，可以不要)
    int linesPerPage = (int)(e.MarginBounds.Height * 1.05 / mainFont.GetHeight(e.Graphics));

    //Format of this DocReport

    //打印具体的SN,BoxID,PalletID列表

    //如果总行数大于目前实际行号，表明还有页要打，lineQty是估计数，因此实际用时要仔细估算
    if (lineQty > lineNo)   
    {
        e.HasMorePages = true; 
    }
    else
    {
        e.HasMorePages = false;
    }

    //打印结尾信息

    printingPageNo++; //页号加一
}

 

打印效果大致截图：（如果有多页，尾部的信息只在最后一页显示）
 
总结：如此简单的功能，在.Net中实现起来确实那么的复杂，尤其是对于自动分页的功能，虽然总体上功能强大了好多，但是把原先那么好用的东西给去掉了。以上代码改写成VB.Net的话，都差不多。。。