VB通过Excel打印程序怎么写

打印到Excel，导出数据到Excel，表体部分只是参考,

strSource = App.Path &"\U8Cus.xls"

strDestiantion = App.Path &"\temp1.xls"

If Dir(strDestiantion) <>"" Then

Kill (strDestiantion) '删除文件时要判断文件是否已打开

FileCopy strSource, strDestiantion

Else'在复制前，查询是否有此文件,有则删除后才复制

FileCopy strSource, strDestiantion

End If

mobjExcel.Visible = True

Set mobjWorkBook = mobjExcel.Workbooks.Open(strDestiantion)

Set xlSheet = mobjWorkBook.Worksheets(1)

'表体部分

Dim i As Double, j As Double, x As Integer, y As Integer

x = rs.RecordCount '记录条总数

if x=0 then End

y = rs.Fields.Count '记录列数

mobjExcel.Application.Cells(8, 2).Value = rs.Fields(0).Value'负责职员

mobjExcel.Application.Cells(8, 5).Value = rs.Fields(1).Value '客户名称

mobjExcel.Application.Cells(8, 9).Value = "月份：" &Month(Text1.Text) &"月" '月份

mobjExcel.Application.Cells(10, 1).Value = Text1.Text '期初日期

mobjExcel.Application.Cells(10, 9).Value = rs.Fields(y - 1).Value '输出期初余额

rs.MoveNext '指针移动第二条记录开始

For i = 2 To x '表体内容,第二行开始

For j = 2 To y - 2 'rs.Fields.Count - 1

mobjExcel.Application.Cells(i + 9, j - 1).Value = rs.Fields(j).Value

Next j

'计算余额Excel公式

mobjExcel.Application.Cells(i + 9, 9) = "=I" &i + 8 &"+G" &i + 9 &"-H" &i + 9

rs.MoveNext

Next i

mobjExcel.Application.Cells(x + 10, 1).Value = "合计："

'合计数，应收原币，收回原币

mobjExcel.Application.Cells(x + 10, 7) = "=Sum(G10:G" &x + 9 &")"

'表格，不带属性

mobjExcel.Application.Cells(x + 10, 8) = "= Sum(H10:H" &x + 9 &")"

mobjWorkBook.Save

xlSheet.PrintPreview

mobjExcel.Quit '在预览时，按分页预览，会破坏以下语句Excel无法退出

什么叫做以字符的形式打印出来

#include <stdio.h>

#include <stdlib.h>

void main()

{

int i,m=0

printf("请输入一个数\n")

scanf("%d",&i)

printf("%c\n",i)

system("pause")

}

打开易语言，创建启动窗口。再确定窗口分别添加3个编辑框、1个按钮、1个分组框，还有一个打印机组件以及注解所需的标签。如图所示

编程，横坐标是总宽的一般往左右延伸的，千万别把横向坐标定错了。一般打印这种宣传语都是黑体或者宋体，直接在编辑框属性里面设置好。源码截图如下：

编译修正，调试没问题进行编译使用。一定要把横坐标位置搞明白，不明白就多看几次。下面是效果图，我的电脑没有装打印机：

---