vb.net打印源码 vb 打印输出

vb.net 打印功能

可以把数据导出到EXCEL，然后使用EXCEL进一步处理后使用。

成都创新互联长期为上1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为酒泉企业提供专业的成都做网站、成都网站建设，酒泉网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。

也可以做成vb报表(VB自带有)。

先设置报表格式，打印时向报表传递数据就可以了。

vb.net Document_PrintPag 打印

我帮你把最后一部分的语句顺序调换一下。你试一试

sub button1_click() '---执行打印

Dim pd As PrintDocument = New PrintDocument

pd.PrinterSettings = PrintDialog1.PrinterSettings

If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

for i=0 to 1 '这样可以两次截图

CaptureScreen() '--执行前面自定义函数截图

AddHandler pd.PrintPage, AddressOf Document_PrintPage

pd.Print()

Threading.Thread.sleep(100) ‘ 再加上一个间隔

next

end sub

vb.net 怎么用print打印字符串到窗口？

vb的函数已经不适合vb.net了，想学vb，得装个vb6。用vb.net的话，使用Debug.WriteLine("hello world")，可以在输出窗口查看到这个信息，这是最简单的，想直接写窗体就得多写几行代码了，具体搜索一下

VB中用什么代码打印文件啊,语句怎么写啊,

VB中的几种打印方法

1. 采用Visual Basic 提供的简单打印函数PrintForm 方法。应用程序窗体的PrintForm 方法时，Visual Basic 把窗体的位图送到当前打印机。该方法的优点在于它几乎不需要任何编程，但也有很大缺陷。最为突出的是当低分辨率图形在高分辨率打印机上打印时，其结果令人无法满意，会产生锯齿。下面代码将在打印机上打印窗体。

Private Sub Command1_Click() ' 用PrintForm 打印

Me.PrintForm ' 打印窗体的可见区域

End Sub

2. 用Printer 对象进行高分辨率输出。但要想产生复杂的打印输出，编程较为烦琐。Printer 对象代表系统缺省的打印机，Printer 对象支持许多由窗体和图形框所支持的属性和方法，三种对象都有画线和画方框。应用程序可用以下代码在Printer 对象上画出一平方英寸的方框。它离左上角二英寸。注意：打印机以twips 来测量距离。每英寸有1440 个twips。

Printer.Line(2 ＊1440,2 ＊1440) －Step(1440,1440), ,B

打印机、从窗体和图形框都有Circle、PaintPicture、Print、Pset、TextHeight、TextWidth 方法。使用这些方法，应用程序可以为打印机生成高分辨率输出。

打印文本直接用Print 方法，见下列代码：

Printer.Print "Hello,China ComputerWorld!" ' 打印字符串

Printer 对象还有一些窗体和图形框都没有方法：

NewPage 告诉打印机，程序对当前输出页的发送已经结束，Printer 对象应开始新的一页。

EndDoc 告诉VB，程序创建文档结束，VB 应将它发送到物理打印机上打印。

KillDoc 取消当前打印作业。应用程序应该终止由EndDoc 和KillDoc 所设定的每个打印作业。

Zoom 属性用于定义打印输出的缩放因子。

Copies 属性用于定义打印的副本数目。

3. 采用直接将数据传送打印机的方法进行打印输出。有两种方法将数据送往打印机。第一种是用Print ＃方法，就像将数据写入一个文件一样。另一种方法写端口，但不是送文本，而是送特定的PCL 语言，PCL 表示打印控制语言，它是一种特殊语言，用转义代码来控制打印机的具体动作。因为此方法太烦琐，本文不做太多介绍。

4. 如果你在编程时用到了RichTextBox 控制，那么你可以使用该控件的SelPrint 方法来打印，使用非常简单。下面一段代码即用RichTextBox 控件的SelPrint 方法来完成打印。

Private Sub Command3_Click() 'SelPrint 方法

CommonDialog1.Flags=cdlPDReturnDC ＋cdlPDNoPageNums

If RTF1.SelLength = 0 Then

'RTF1 为窗体的RichTextBox 控制

CommonDialog1.Flags = CommonDialog1.Flags

＋cdlPDAllPages

Else

CommonDialog1.Flags = CommonDialog1.Flags ＋

cdlPDSelection

End If

CommonDialog1.CancelError = True

On Error Resume Next

CommonDialog1.ShowPrinter

If Err.Number = cdlCancel Then Exit Sub

If Err.Number 0 Then

Beep

MsgBox "Error printing file."

＆vbCrLf ＋Err.Description, vbOKOnly ＋vbExclamation,

“Printing Error!"

Exit Sub

End If

Printer.Print ""

RTF1.SelPrint CommonDialog1.hDC

' 打印RTF1 控件的可见区域

End Sub

上面代码先进行打进设置，再进行打印。如果不需要设置，采用下面代码更为简单:

RTF1.SelPrint Printer.hDC

' 打印RTF1 控件的可见区域

5. 可以在VB 中调用Word 97 提供的OLE 自动化服务，利用Word 97 强大的打印功能来完成VB 打印，笔者认为这是最令人满意的方法。下面代码说明VB 如何与Word 集成。

Private Sub Command4_Click() ' 调用Word 打印

Dim objWord As Object

Const CLASSOBJECT = "Word.Application"

On Error GoTo objError

Set objWord = CreateObject(CLASSOBJECT)

objWord.Visible = True

objWord.Documents.Add

With objWord

.ActiveDocument.Paragraphs.Last.Range.Bold = False

.ActiveDocument.Paragraphs.Last.Range.Font.Size =20

.ActiveDocument.Paragraphs.Last.Range.Font.Name =

"黑体"

.ActiveDocument.Paragraphs.Last.Range.Font.ColorIndex==4

.ActiveDocument.Paragraphs.Last.Range.Text =

"我是计算机世界读者!"

End With

Clipboard.Clear

Clipboard.SetText

"通过剪切板向WORD 传送数据!"

objWord.Selection.Paste

objWord.PrintPreview = True ' 预览方式

'objWord.PrintOut' 执行打印

'objWord.Quit' 退出Word

Exit Sub

objError:

If Err 429 Then

MsgBox Str ＄(Err) ＆Error ＄

Set objWord = Nothing

' 不能创建Word 对象则退出

Exit Sub

Else

Resume Next

End If

End Sub

6. 用VC 编制DLL 模块完成打印。在VB 中调用该模块，用混合编程方法进行打印输出。因涉及VC 编程比较烦琐，这里不再讨论。

vb.net 怎么实现发票打印窗体，按窗体上的格式打印出来，用的是access数据库，请高手帮忙！

选择开始菜单中→程序→【Management SQL Server 2008】→【SQL Server Management Studio】命令，打开【SQL Server Management Studio】窗口，并使用Windows或 SQL Server身份验证建立连接。

在【对象资源管理器】窗口中展开服务器，然后选择【数据库】节点

右键单击【数据库】节点，从弹出来的快捷菜单中选择【新建数据库】命令。

执行上述操作后，会弹出【新建数据库】对话框。在对话框、左侧有3个选项，分别是【常规】、【选项】和【文件组】。完成这三个选项中的设置会后，就完成了数据库的创建工作，

在【数据库名称】文本框中输入要新建数据库的名称。例如，这里以“新建的数据库”。

在【所有者】文本框中输入新建数据库的所有者，如sa。根据数据库的使用情况，选择启用或者禁用【使用全文索引】复选框。

在【数据库文件】列表中包括两行，一行是数据库文件，而另一行是日记文件。通过单击下面的【添加】、【删除】按钮添加或删除数据库文件。

切换到【选项页】、在这里可以设置数据库的排序规则、恢复模式、兼容级别和其他属性。

切换到【文件组】页，在这里可以添加或删除文件组。

完成以上操作后，单击【确定】按钮关闭【新建数据库】对话框。至此“新建的数据”数据库创建成功。新建的数据库可以再【对象资源管理器】窗口看到。

vb.net中如何利用api函数获取网页源代码？？？

Dim MyClient As WebClient = New WebClient

Dim MyReader As New System.IO.StreamReader(MyClient.OpenRead(url), System.Text.Encoding.Default) '定义新的文件流并读取网页文件数据，url表示需要打开的网页地址

Dim longTxt As String = MyReader.ReadToEnd 'longtxt存储了网页的源码

MyReader.Close()