关于如何打印ListView的解决方法

ListView无外乎也是一个二维形式的,下面提供一个把ListView转换为二维数组。

ListView转换为二维数组

/// <summary>
/// 将ListView的数据导出到二维数组。
/// </summary>
/// <param name="listView">二维数据视图</param>
/// <param name="includeColumnText">是否要把列标题文本也导到数组中。</param>
/// <remarks>
///<作者>长江支流</作者>
///<日期>2005-08-21</日期>
///<修改></修改>
/// </remarks>
/// <returns>二维数组。</returns>
public string[,] ToStringArray(ListView listView,bool includeColumnText)
{
ListView lvw = listView;
int rowsCount = lvw.Items.Count;
int colsCount = lvw.Columns.Count;

//包括标题
if (includeColumnText)
{
rowsCount++;
}

string[,] arrReturn = null;

arrReturn = new string[rowsCount,colsCount];

int i = 0;

if (includeColumnText)
{
//写标题
for(i = 0 ; i < colsCount; i++)
{
arrReturn[0,i] = lvw.Columns[i].Text;
}

i = 1;
}

//写数据行Items
int rowIndex = 0;
for(; i < rowsCount; i++,rowIndex++)
{
for (int j = 0; j < colsCount; j++)
{
arrReturn[i,j] = lvw.Items[rowIndex].SubItems[j].Text;
}
}

return arrReturn;
}

打印ListView:

private void btnPrintEasy_Click(object sender,System.EventArgs e)
{
MisGoldPrinter webmis = new MisGoldPrinter();//打印组件
webmis.Title = "MIS金质打印通/nWWW.WebMIS.COM.CN";//网格标题
webmis.DataSource = ToStringArray(listView,true);//任意二维的数据通通打印
webmis.Preview();//打印预览
}

VB.Net:
Private Sub btnPrintEasy_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnPrintEasy.Click
Dim webmis As MisGoldPrinter'打印组件
webmis = New MisGoldPrinter
webmis.Title = "MIS金质打印通"+vbCrLf+"WWW.WebMIS.COM.CN"'网格标题 webmis.DataSource = ToStringArray(listView,true)'任意二维的数据通通打印 webmis.Preview() '打印预览End Sub

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...