vb.net 打印实例

问题描述

vb.net打印实例

解决方案

解决方案二：
什么呀？你是求打印代码吗？
解决方案三：
http://www.codesoso.com/code/Text-Image-Print.aspx
解决方案四：
PrivateSub打印Button_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles打印Button.ClickMe.printPreviewDialog1.Document=Me.printDocument1Me.printPreviewDialog1.ShowDialog()EndSubPrivateSubprintDocument1_PrintPage(ByValsenderAsSystem.Object,ByValeAsSystem.Drawing.Printing.PrintPageEventArgs)HandlesprintDocument1.PrintPageIf(Me.帐单类型ComboBox.Text="旅客结帐单")ThenDimMyAmountAsDouble=Convert.ToDouble(Me.帐单DataGridView.CurrentRow.Cells(11).Value.ToString())-Convert.ToDouble(Me.帐单DataGridView.CurrentRow.Cells(12).Value.ToString())DimMyAmountInfoAsString="实收金额："+MyAmount.ToString()If(MyAmount<0)ThenMyAmountInfo="实补金额："+MyAmount.ToString().Remove(0,1)EndIfMe.帐单DataGridView.CurrentRow.Cells(2).Value.ToString()'打印旅客结帐单e.Graphics.DrawString(Me.MyCompany+"旅客结帐单",NewFont("宋体",20),Brushes.Black,220,80)EndIfEndSub

时间： 2024-10-25 16:31:51

vb.net 打印实例的相关文章

vb2010-vb.net打印实例，vs2010

问题描述 vb.net打印实例,vs2010 vb.net打印实例,用vb2010 做了输入界面 ,输入保存后要打印

VB程序打印水晶报表的典型方法2

程序|打印|水晶报表 描述:   本文介绍另一种流行的一种VB程序打印水晶报表的方法.   环境: MS SQL SERVER 2000  /  VB6  /  CRYSTAL REPORT8.5   步骤 1: 建立ODBC连接   2: 创建一个为Crystal Report报表文件   3: 加载Microsoft ActiveX Data Objects Library 至项目的References 中   4. 创建VB 设计(Designer) , 通过open existing f

VB程序打印水晶报表的典型方法1

程序|打印|水晶报表 描述:     本文介绍流行的一种VB程序打印水晶报表的方法,具有比较好的扩展性.   环境:    MS SQL SERVER 2000  /  VB6  /  CRYSTAL REPORT8.5   步骤   1: 建立ODBC连接   2: 创建一个为Crystal Report检索数据的过程(procedure) 举例: (通过日期查询总额)    if exists (select * from sysobjects where name = 'usp_testf

系统-VB报表打印问题 急需 求解决 谢谢

问题描述 VB报表打印问题 急需 求解决 谢谢 网上下的VB图书管理系统 其他部分都改好了 就是报表打印那出问题 求解决 解决方案 检查连接字符串,对应d:vb98文件夹下有没有db_libaray.mdb

vb net 打印 端口-程序打印不了小票,端口被占用

问题描述 程序打印不了小票,端口被占用 现在有一个VB.net写的程序要用post机打印小票,打印机被设为默认,然后用程序向LTP端口发送打印命令却打印不了,说是LTP端口被占.而把这个打印机删掉或者不设为默认却可以打印, 现在我想知道怎么才能在把打印机设为默认的情况下程序可以打印?

Android 蓝牙连接 ESC/POS 热敏打印机打印实例（蓝牙连接篇）

公司的一个手机端的 CRM 项目最近要增加小票打印的功能,就是我们点外卖的时候经常会见到的那种小票.这里主要涉及到两大块的知识: 蓝牙连接及数据传输 ESC/POS 打印指令 蓝牙连接不用说了,太常见了,这篇主要介绍这部分的内容.但ESC/POS 打印指令是个什么鬼?简单说,我们常见的热敏小票打印机都支持这样一种指令,只要按照指令的格式向打印机发送指令,哪怕是不同型号品牌的打印机也会执行相同的动作.比如打印一行文本,换行,加粗等都有对应的指令,这部分内容放在下一篇介绍. 本篇主要基于官方文档,相

Android进阶——安卓调用ESC/POS打印机打印实例

前言 前一段时间由于工作需要,要研究一下安卓程序调用打印机打印小票,并且要求不能使用蓝牙调用,研究了一下,可以利用socket连接,来实现打印功能.写了个Demo,分享一下. 工具:一台打印机(芯烨XP-80XX),一台安卓测试机 开发环境:Android Studio 1.5 需求:点击按钮,实现打印小票功能,小票上除必要文字外,还要有二维码. 封装了一个Pos打印工具类: package com.example.haoguibao.myapplication; import java.io.

VB中打印ACCESS报表

access|打印 Dim acc As ObjectSet acc = CreateObject("Access.Application")If Right$(Trim$(App.Path), 1) = "\" Thenacc.OpenCurrentDatabase App.Path & "data.mdb"'打开数据库Elseacc.OpenCurrentDatabase App.Path & "\data.mdb&

VB红皮书敲实例过程中遇到的问题

            红皮书中的五个例子已经打完了,并且能够成功的运行,在敲实例的过程中遇到了一些问题,但都解决掉了.                   1.路径问题        App.path:app是一个对象,指程序本身.app.path是返回程序所在的路径如你编写的程序保存在C:\MyVB\Test目录下,那么当程序运行时app.path返回的就是"C:\MyVB\Test"        如果未在同一目录下,就用下面这种方式:                    2.