精华内容
下载资源
问答
  • 时 间:2007-10-18 21:42:45作 者:摘 要:如何在ACCESS的报表中使用自定义纸张,及设置自定义纸张大小正 文:何在ACCESS的报表中使用自定义纸张,及设置自定义纸张大小正 文:Private Type str_DEVMODERGB As String ...

    时 间:2007-10-18 21:42:45

    作 者:摘 要:如何在ACCESS的报表中使用自定义纸张,及设置自定义纸张大小

    正 文:

    何在ACCESS的报表中使用自定义纸张,及设置自定义纸张大小

    正 文:

    Private Type str_DEVMODE

    RGB As String * 94

    End Type

    Private Type type_DEVMODE

    strDeviceName As String * 32

    intSpecVersion As Integer

    intDriverVersion As Integer

    intSize As Integer

    intDriverExtra As Integer

    lngFields As Long

    intOrientation As Integer

    intPaperSize As Integer

    intPaperLength As Integer

    intPaperWidth As Integer

    intScale As Integer

    intCopies As Integer

    intDefaultSource As Integer

    intPrintQuality As Integer

    intColor As Integer

    intDuplex As Integer

    intResolution As Integer

    intTTOption As Integer

    intCollate As Integer

    strFormName As String * 32

    lngPad As Long

    lngBits As Long

    lngPW As Long

    lngPH As Long

    lngDFI As Long

    lngDFr As Long

    End Type

    ' rptName: 为报表名称

    Public Sub CheckCustomPage(ByVal rptName As String)

    Dim DevString As str_DEVMODE

    Dim DM As type_DEVMODE

    Dim strDevModeExtra As String

    Dim rpt As Report

    Dim intResponse As Integer

    ' 在设计视图下打开报表

    DoCmd.OpenReport rptName, acDesign

    Set rpt = Reports(rptName)

    If Not IsNull(rpt.PrtDevMode) Then

    strDevModeExtra = rpt.PrtDevMode

    ' 获取当前的 DEVMODE 结构

    DevString.RGB = strDevModeExtra

    LSet DM = DevString

    If DM.intPaperSize = 256 Then

    ' 显示用户自定义纸张的尺寸

    intResponse = MsgBox("当前的自定义纸张为(mm):" & _

    DM.intPaperWidth / 10 & " 宽 X " & _

    DM.intPaperLength / 10 & " 长。 你想改变吗?", _

    vbYesNo + vbQuestion)

    Else

    ' 非自定义纸张

    intResponse = MsgBox("报表没有使用自定义纸张。 " & _

    "你想使用自定义纸张吗?", vbYesNo + vbQuestion)

    End If

    If intResponse = vbYes Then

    ' 用户要改变纸张设置,初始化 DM 的各个域

    DM.lngFields = DM.lngFields or DM.intPaperSize or _

    DM.intPaperLength or DM.intPaperWidth

    ' 设置为自定义纸张

    DM.intPaperSize = 256

    ' 提示输入长度和宽度

    DM.intPaperLength = InputBox("请输入纸张的长度(mm):") * 10

    DM.intPaperWidth = InputBox("请输入纸张的宽度(mm):") * 10

    ' 更新属性值

    LSet DevString = DM

    Mid(strDevModeExtra, 1, 94) = DevString.RGB

    rpt.PrtDevMode = strDevModeExtra

    End If

    End If

    Set rpt = Nothing

    End Sub

    报表打印如何用代码设定页面

    Dim qdf As QueryDef

    Dim ctlLabel As Control, ctlText As Control

    Dim intDataX As Integer, intDataY As Integer

    Dim intLabelX As Integer, intLabelY As Integer

    Dim ncnt As Integer

    Dim i As Integer

    Dim ttlwidth As Double

    Dim rptWaste As Report

    Me.Painting = False

    On Error Resume Next

    Dim Dbs As Database, ctr As Container, doc As Document

    Set Dbs = CurrentDb

    ncnt = 0

    Set rptWaste = CreateReport

    Dbs.QueryDefs.Delete "www"

    Set qdf = Dbs.CreateQueryDef("www", sql)

    Dbs.QueryDefs.refresh

    ttlwidth = 30

    rptWaste.Section(acPageHeader).Height = 800

    For i = 1 To 30 - 1

    If Not (IsNull(adata(i)) or Trim(adata(i)) = "") Then

    Set ctlText = CreateReportControl(rptWaste.name, acTextBox, , "", "", intDataX, intDataY)

    Set ctlLabel = CreateReportControl(rptWaste.name, acLabel, acPageHeader, , "NewLabel", intLabelX, intLabelY)

    ctlLabel.Caption = adata(i)

    ctlText.Width = 1000

    If adata(i) = "card_no" Then

    ctlText.Width = 1200

    ctlLabel.Caption = "卡号"

    End If

    If adata(i) = "date" Then

    ctlText.Width = 1300

    ctlLabel.Caption = &qu

    Access软件网官方交流QQ群(群号:39785885)

    Access源码网店

    展开全文
  • 通过编写代码,可以使用户在运行时指定自定义设置,而不用修改报表的默认打印机或页面设置选项。您还需要为用户提供一个对话框或窗体,以便用户在其中指定所需的设置。下图所示为“打印机设置”窗体,允许用户自定义...

    您可以为数据库中的每个报表设置页面设置选项,但系统并不会为数据库的每个用户存储该设置。换句话说,如果您更改了“发票”报表的打印设置,则此更改将覆盖前一个用户所做的改变。

    通过编写代码,可以使用户在运行时指定自定义设置,而不用修改报表的默认打印机或页面设置选项。您还需要为用户提供一个对话框或窗体,以便用户在其中指定所需的设置。

    下图所示为“打印机设置”窗体,允许用户自定义打印设置、预览报表或打印报表。

    选择要预览或打印的报表。

    选择用来打印选定报表的打印机。

    指定纸张大小和方向。

    单击以预览该报表。

    单击以将最新的打印设置应用到“预览”窗口中打开的报表上。

    单击以预览该报表。

    创建“打印机设置”窗体

    在“设计”视图中创建一个窗体,并如上图所示添加下列控件。

    lbxSelectReport:显示报表列表的列表框

    cmbPrinter:显示可用打印机列表的组合框

    cmbPaperSize:显示纸张大小列表的组合框

    opgOrientation:具有两个选项的选项组,用于显示方向选项

    cmdPreview:以预览模式打开报表的命令按钮

    cmdApplyChanges:将最新设置应用到当前报表的命令按钮

    cmdPrint:使用在窗体中指定的设置打印选定报表的命令按钮

    向窗体的 Open 事件中添加代码以初始化控件。

    Private Sub Form_Open(Cancel As Integer)

    ' 包含默认打印机索引的变量。

    Dim strDefaultPrinter As String

    ' 包含打印机对象的变量。

    Dim prt As Printer

    ' 在 AllReports 集合中遍历时

    ' 包含报表对象的变量。

    Dim accObj As AccessObject

    ' 填写打印机列表。

    ' 确保 RowSource 为空。

    Me!cmbPrinter.RowSource = ""

    Me!lbxSelectReport.RowSource = ""

    ' 遍历计算机上已安装的打印机,并将它们添加到组合框中。

    For Each prt In Application.Printers

    ' 使用新的 AddItem 方法将打印机名称添加到组合框中。

    Me!cmbPrinter.AddItem prt.DeviceName

    Next

    ' 记忆默认打印机。

    strDefaultPrinter = Application.Printer.DeviceName

    ' 将组合框设置为默认打印机。

    Me!cmbPrinter = strDefaultPrinter

    Me!cmbPaperSize = 1

    ' 填写报表列表。

    For Each accObj In CurrentProject.AllReports

    Me!lbxSelectReport.AddItem accObj.Name

    Next

    ' 将列表框设置为第一个报表。

    Me!lbxSelectReport.SetFocus

    Me!lbxSelectReport.ListIndex = 0

    End Sub

    向“预览报表”命令按钮添加代码,以便以预览模式打开选定的报表。

    Private Sub cmdPreview_Click()

    ' 包含要操纵的打印机对象的变量。

    Dim prt As Printer

    ' 为选定的打印机选取打印机对象。

    Set prt = Application.Printers(Me!cmbPrinter.Value)

    ' 读取用户指定的设置。

    prt.PaperSize = Me!cmbPaperSize

    prt.Orientation = Me!opgOrientation

    ' 以预览模式打开报表。

    DoCmd.OpenReport Me!lbxSelectReport, acViewPreview

    ' 将报表的打印机设置为已修改的打印机对象。

    Reports(Me!lbxSelectReport).Printer = prt

    End Sub

    向“应用更改”命令按钮添加代码,以将更改应用到以预览模式打开的报表。

    Private Sub cmdApplyChanges_Click()

    If CurrentProject.AllReports(Me!lbxSelectReport).IsLoaded Then

    With Reports(Me!lbxSelectReport).Printer

    .PaperSize = Me!cmbPaperSize

    .Orientation = Me!opgOrientation

    End With

    Else

    MsgBox "请先预览报表。"

    End If

    End Sub

    向“打印报表”命令按钮添加代码,以便基于用户指定的设置打印选定的报表。

    Private Sub cmdPrint_Click()

    ' 检查报表是否已打开。

    If CurrentProject.AllReports(Me!lbxSelectReport).IsLoaded Then

    ' 打印报表(如果已打开)。

    DoCmd.OpenReport Me!lbxSelectReport, acViewNormal

    Else

    ' 使用自定义设置来设置应用程序打印机。

    Application.Printer = Application.Printers(Me!cmbPrinter.Value)

    Application.Printer.PaperSize = Me!cmbPaperSize

    Application.Printer.Orientation = Me!opgOrientation

    ' 使用新的应用程序级别打印机设置来打开和打印报表。

    DoCmd.OpenReport Me!lbxSelectReport, acViewNormal

    ' 将应用程序打印机重置为默认设置。

    Set Application.Printer = Nothing

    End If

    End Sub

    展开全文
  • 在凭证录入完成后,金蝶账无忧是支持凭证打印的。一共有2种凭证打印方式,第一种是套打。...现在咱们就介绍一下自定义纸张大小的打印。 我用客户实际纸张规格演示。纸张规格210mmX297mm。一、在控...

        在凭证录入完成后,金蝶账无忧是支持凭证打印的。一共有2种凭证打印方式,第一种是套打。套打是根据系统设置好的模板,用金蝶专用的凭证纸进行打印,打印纸张规格为240mmX140mm,KP-J103模板。暂时不支持KP-Z103。另一种打印是根据大家手里的纸张规格设定打印。现在咱们就介绍一下自定义纸张大小的打印。

        我用客户实际纸张规格演示。纸张规格210mmX297mm。

    一、在控制面板打印机中增加纸张规格。控制面板→打印机→选定打印机右鼠标键:打印首选项→自定义纸张大小,设定名称为:KINGDEE。纸张规格设定为210mm;297mm。

    9d70be3b75c0ec6a504efa3f9d82673e.png

    二、在打印选项中选择输出尺寸为KINGDEE的纸型。

    fa4ea315b4409389bcea92ae807ed4c8.png

    3a5c0f28fb0eda1a41f5cd04002a920c.png

    三、在账无忧凭证查询中→打印→凭证打印→PDF打印,选择自定义纸张,规格设定为短边210毫米 长边297毫米

    8be49bb6906860d42e20cc36bb3da47f.png

    四、打印预览后是这个样子,我们先打印一张凭证看一下效果,里面的参数根据打印机不同,分别设置就可以,案例中的截图仅供参考。

    0167b18278bf405b226f157b55e4d373.png

        凭证打印相关的配置基本上就是这些,在实际设置中,每个打印机的品牌和设置方法略有不同。此办法作为一个参考,大家可以自己设置下看看,如果设定不好,可以找我远程协助大家设定下。

        金蝶姜-18940982658

    展开全文
  • 针式打印机设置自定义纸张大小

    千次阅读 2012-12-30 12:02:00
    
 ...在Windows 2000和Windows ...XP操作系统中,如何自定义纸张大小?自定义纸张之后,为何在打印机属性的“纸张大小”中没有看到自定义的纸型。 二、问题原因及解决方法 1、在以往的Windo...
        

    在Windows 2000和Windows XP操作系统中如何自定义纸张?为何有时看不到自己定义的纸张?

    文档编号:390003

    一、问题描述
    在Windows 2000和Windows XP操作系统中,如何自定义纸张大小?自定义纸张之后,为何在打印机属性的“纸张大小”中没有看到自定义的纸型。


    二、问题原因及解决方法

    1、在以往的Windows 98操作系统中,打印机属性里的“纸张大小”中有“自定义”一项。而Windows 2000和Windows XP中自定义的位置是不同于Windows 98的。

    这里用一个示例来表述。假定用户使用了一款15cm宽,20cm高的自制纸张,想分别在Windows XP和Windows 2000操作系统中添加这款纸张类型,以便使用时可以方便的选择。

    由于在Window XP和Windows 2000操作系统中添加自定义纸张的步骤完全相同,这里只用一个在windowsXP下的示例作为代表。

    在Windows XP操作系统中,步骤如下:

    1.1、调出“服务器属性”界面。

    在“控制面板”中选择“打印机和传真机”双击打开。然后点击“文件”,在下拉菜单中选择“服务器属性”。如图(1):

    图(1):打开“服务器属性”

     7b1aa5ef4d20abde53227&690

    1.2、创建,并且保存自定义的纸张。

    在“服务器属性”中,勾选“创建新格式”。然后在“表格名”中为自己新定义的纸张起一个名字,比如:创建新格式。在“宽度”,“高度”中分别键入15,和20。“打印机区域边距”可根据需要自行制定。最后点击“保存”。

    一个名叫“创建新格式”的格式就产生了。其代表一种宽度15cm高度20cm的纸张大小。如图(2)。

    图(2):创建新格式

    7b1aa5ef4d20abdee4bf7&690

    1.3、在打印机属性中选用这款新定义的纸张。(下面以LQ-1600K4打印机为例进行说明)  

    打开打印机属性,点击“打印首选项”,点击“高级”,点击“纸张大小”下拉菜单。在其中选择“创新建格式”纸张类型。即可。如图(3):

    图(3):调用该格式

    7b1aa5ef4d20abdfb0501&690

    2、所有的打印机限于它的机械结构(走纸系统、纸张感应系统)等原因,都有自己的对纸张大小的最基本的要求。并不是所有的纸张大小都可以支持到。

    比如有的用户希望打印10cm以下宽度的纸张,比如7cm宽的卡片铭牌,自定义好纸张之后,却发现在自己的1600K4打印机的属性中没有这款纸型。这是因为1600K4打印机默许的最小纸宽为9.91cm,小于这个宽的的纸张由于打印机不能保证顺利进纸、正确走纸而不支持用户设定。因而用户看不到自己设定的7cm纸宽。

     

      3、如果打印的是Crystal Reports报表文件,还需要设置报表文件本身的打印机纸张规格。
    指定水晶报表纸张规格方法:
    水晶报表中的纸张规格是根据windows操作系统中打印机设置的纸张规格获得的。设置完后,右键点击你设计的“水晶报表”,选择【设计】-》【打印机设置】,再选择已经定义了该打印“首选项”的打印机,设置纸张大小即可。(如果报表文件是通过共享的方式访问,需要使用客户端的Crystal程序打开报表文件,执行操作“文件”----“打印机设置”,再选择已经定义了该“自定义尺寸”的打印机,设置纸张大小即可。) 

     

    网络资料:
    http://blog.csdn.net/bason/archive/2007/11/15/1887333.aspx

    http://blog.sina.com.cn/s/blog_62a5d6c10100nklj.html

    http://www.cnblogs.com/oracleDBA/archive/2011/01/21/1940735.html

     

     

    展开全文
  • excel自定义纸张大小 长宽 在Excel中如何设置纸张大小 如何自定义纸张的大小? 打印机没有自定义纸张 打印机自定义纸张在打印首选项里找不到 打印机自定义纸张格式 == excel里面页面设置有个纸张大小的切换...
  • 常见问题解答 EPSON 在Windows XP下如何自定义纸张大小? 本文详细介绍如何在Windows XP下自定义纸张大小及如何选用自定义的纸张具体步骤如下 1调出服务器属性界面 点击开始设置 打印机和传真如图一点击文件在下拉...
  • 这篇文章介绍如何在Java应用程序中打印PDF文档以及进行一些打印设置,包括指定打印机、自定义纸张大小设置打印参数、以及显示打印对话框等。 导入jar文件 本文所使用的PDF类库是Spire.PDF for Java, 如果你的...
  • 成员“纸张类型”所在数据类型为“打印设置信息”,英文名称为“Paper”,类型为“整数型(int)”,初始值为“0”。本成员设置打印纸类型,可以为以下常量值之一: 0、#默认纸; 1、#A3纸(297x420毫米); 2、#A4纸...
  • 这篇文章介绍如何在Java应用程序中打印PDF文档以及进行一些打印设置,包括指定打印机、自定义纸张大小设置打印参数、以及显示打印对话框等。导入jar文件本文所使用的PDF类库是Spire.PDF for Java, 如果你的项目是...
  • 在PB中须调用外部函数来自定义纸张长度,比较繁琐。本文介绍一种直接对打印机的控制方法,简单实现对页长的设定。----一、预备知识----计算机与打印机的通讯使用ASCII码进行,其中标准ASCII码包括可打印字符及非打印...
  • 打印机如何自定义纸张大小?有很多时候我们要打印的文件不是一些比较有规格的大小,比如A4,A3,有什么需要自定义,尤其的财务部门,生产部门多脸打印,都用到14x24页面的打印,那么我就要自定义纸张的大小,这样才能...
  • 水晶报表自定义纸张大小打印 (转)

    千次阅读 2014-09-14 10:49:37
    水晶报表自定义纸张大小打印 (Crystal Report Print with custom paper size)   水晶报表查看器CrystalReportViewer自带打印功能,调用当前系统默认打印机进行打印,但.NET里的水晶版本不支持Web打印,需要...
  • 水晶报表查看器CrystalReportViewer自带打印功能,调用当前系统默认打印机进行打印,但...另外由于其他原因,我们大多需要自己写代码进行打印,这就牵扯到如何写代码、如何设置打印参数的 问题,以下是一些基本知识:
  • 在WIN98系统下,之前我们都知道,如果打印非A4或其它标准的纸张,我们可以直接在打印机里定义新纸张,但是到了WINXP/2000下,却发现不能自定义,其它依旧可以定义: 关键是位置,方法如下: 点击开始------设置--------打印机...
  • 打印机如何自定义纸张大小?有很多时候我们要打印的文件不是一些比较有规格的大小,比如A4,A3,有什么需要自定义,尤其的财务部门,生产部门多脸打印,都用到14x24页面的打印,那么我就要自定义纸张的大小,这样才能...
  • VFP9.0中实现多种自定义纸张格式的报表打印徐小栋【期刊名称】《福建电脑》【年(卷),期】2009(025)001【摘要】该文叙述了在VFP9.0开发的应用程序中,利用报表设计器设计的各种非WINDOWS标准页面大小的报表,在WINDOWS...
  • 通过在WIN2000/XP的“打印机和传真”窗口中设置“服务器属性”,创建多种自定义纸张规格和修改VFP报表文件,在开发的应用程序中让用户控制各种打印报表的纸张大小。关键词:VFP 8.0Windows 2000/XP纸张格式报表打印...
  • 点击文件选项,在弹出的下拉菜单里面有一个“服务器属性”的选项(通常在第二栏),点开这个“服务器属性”选项,选择“创建新格式”,就可以在下面的“格式描述(尺寸)”里面设定自定义纸张的尺寸大小。...
  • 在平时产品标签,条码标签等等各种标签打印时,都需要在条码打印软件中将纸张尺寸设为和标签纸实际尺寸相符,这样...在中琅条码打印软件左上角工具栏点击“新建”-“文档设置”中,纸张选择“自定义大小”宽度为标签...
  • '当该报表使用的是自定义纸张时,则显示自定义纸张大小,'并询问是否更改纸张的大小并进行设置;'当该报表使用的是标准纸张时,则询问是否使用自定义纸张,'如果选择“是”,则要求输入纸张的大小并进行设置。...
  • 在实际的报表功能构建中,有些信息量较大的报表在默认的界面下是无法完整显示的,这时就需要自定义设置报表的大小,打开报表设计器:   属性列表拉倒最后页面设置,可以看见页面高度、页面宽度以及纸张类型这三个...
  • 光标在标签打印过程中通常是...运行条码打印软件新建一个空白标签,选择打印机,根据自己实际标签纸情况自定义设置纸张大小,直接点完成。然后打开文档设置-布局界面,设置行列、页面边距、标签间距等等。以145*10...
  • 一、问题描述 excel表格在打印设置如何让自定义页眉永久保留 如何保存自定义的页眉页脚呢?...怎样可以保存自己定义的页眉页脚(就是在页眉页脚的下拉菜单里出现自己定义过的),就想自定义纸张大小一样。 二、
  • 光标在标签打印过程中通常是...运行条码打印软件新建一个空白标签,选择打印机,根据自己实际标签纸情况自定义设置纸张大小,直接点完成。然后打开文档设置-布局界面,设置行列、页面边距、标签间距等等。以145*10...

空空如也

空空如也

1 2 3
收藏数 57
精华内容 22
关键字:

如何自定义纸张大小设置