index1.txt

VB技巧问答10000例 VB技巧问答10000例

1,VB6.0中用什么命令代替qbasic 中的Lprint命令 
vb6.0中用什么命令代替qbasic 中的Lprint命令？ 
<END>
2,能不能实现输出一个文件内容到lpt1端口 
我有个问题需要帮助, 我们设计院打图都是先在Autocad 里做成出图文件 *.plt, 
    然后到机房带绘图仪的计算机上执行 copy *.plt lpt1 或 copy *.plt prn 
    才行,现在我想用VB编写一个程序,能完成上面的工作, 但是不能直接用VB 
    的printer函数来执行,因为这样就是通过系统打印机来执行的,打不出来,我不知道VB里能不能实现输出一个文件内容到lpt1:端口, 希望给我一个帮助,谢谢。 
<END>    
3,画出的线条总是特别细请问有什么办法可以使线条加粗  
我在使用datareport 设计报表时,画出的线条总是特别细,打印出来后很不明显。请问有什么办法可以使线条加粗，而且由于我做的是动态报表,所以线条不能画的太多，也就是不能在同一个地方画重复的线条。敬请能尽快回答。万分感谢。 
<END>    
4,DataReport的内容不随数据库的内容变化 
在使用DataReport时，我通过DataEnvironment连接了一个临时数据库，该数据库中的数据根据查询条件的不同而变化，但是每次执行程序，当我改变查询条件时，临时数据库内容变化了，而报表的内容不变，要退出程序才行。经反复测试，发现每次报表的内容是程序启动前的临时数据库内容，请问专家这个问题应该如何解决？
<END>
5,使用DataReport 设计很宽的报表，设置Printer的Width 和Height 属性不起作用 
本人使用 DataReport 进行设计时，遇到一个很宽的报表（约有 43厘米宽）。现有以下问题： 
    1. 设置 Printer.Width 和 Printer.Height 属性，似乎不起作用？ 
    2. 设置PRINTER_INFO_2.DEVMODE 结构的dmPaperLength 和 dmPaperWidth 属性，设置dmOrientation为横向，调用 API函数 SetPrinter，仍然报错 "报表宽度大于纸宽"。但是函数的返回值为 1，并且对打印方向的设置确实已经生效，不知为什么？这样一个报表应该如何实现？ 
<END>
6,Datareport 的Reportheader 和 Pageheader 内不能使用变量 
我VB刚入门（以前主要用VFP），近来开发了两套MIS系统（用VB 和SQL Server），在报表设计时遇到VB Datareport 的Reportheader 和 Pageheader 内不能使用变量,这个问题我苦苦思考了一个多月，始终找不到解决这个问题的答案。我始终包着一线希望，VB一定能解决这个问题，小弟将万分的感谢!!!!!!! 
<END>    
7,使用WritePrinter打印出来的字都一样大 
本人使用的是SP322S票据打印机，由于要模仿DOS下面的打印原理(即输入一行,打印机就打一行)，就到微软相关站点参照其代码,并把代码编成模块以便调用,但无论怎样调试打印出来的字都一样大,即使使用PRINTER.FONTSIZE属性都无法改变字的大小?请阁下指点。 
    我编的模块如下: 
    Option Explicit 
     Public Type DOCINFO 
     pDocName As String 
     pOutputFile As String 
     pDatatype As String 
     End Type 
     
     Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal _ 
     hPrinter As Long) As Long 
     Public Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _ 
     hPrinter As Long) As Long 
     Public Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _ 
     hPrinter As Long) As Long 
     Public Declare Function OpenPrinter Lib "winspool.drv" Alias _ 
     "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _ 
     ByVal pDefault As Long) As Long 
     Public Declare Function StartDocPrinter Lib "winspool.drv" Alias _ 
     "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _ 
     pDocInfo As DOCINFO) As Long 
     Public Declare Function StartPagePrinter Lib "winspool.drv" (ByVal _ 
     hPrinter As Long) As Long 
     Public Declare Function WritePrinter Lib "winspool.drv" (ByVal _ 
     hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _ 
     pcWritten As Long) As Long 
     
     Public Sub ppin(s1 As String, s2 As String, s3 As String, s4 As String, _ s5 As String, s6 As String) 
     Dim lhPrinter As Long 
     Dim lReturn As Long 
     Dim lpcWritten As Long 
     Dim lDoc As Long 
     Dim sWrittenData As String 
     Dim MyDocInfo As DOCINFO 
     lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0) 
     If lReturn = 0 Then 
     MsgBox "The Printer Name you typed wasn't recognized." 
     Exit Sub 
     End If 
     MyDocInfo.pDocName = "AAAAAA" 
     MyDocInfo.pOutputFile = vbNullString 
     MyDocInfo.pDatatype = vbNullString 
     lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo) 
     Call StartPagePrinter(lhPrinter) 
     sWrittenData = vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf &_ vbCrLf & vbCrLf & " " & s1 & " " & s2 & vbCrLf & _ vbCrLf & vbCrLf & " " & s3 & " " & s4 & vbCrLf & _ vbCrLf & " " & s5 & vbCrLf & vbCrLf & _ vbCrLf& " " & s6 & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _ vbCrLf & vbCrLf & vbCrLf & vbCrLf 
     lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, _ 
     Len(sWrittenData), lpcWritten) 
     lReturn = EndPagePrinter(lhPrinter) 
     lReturn = EndDocPrinter(lhPrinter) 
     lReturn = ClosePrinter(lhPrinter) 
     End Sub 
<END>
8,如何检测我的操作系统中是否安装了打印机 
请问如何在vb中实现： 
    1.如何检测我的操作系统中是否安装了打印机和打印机是否已经打开？ 
    2.如何检测我当前的打印机的状态是否允许我进行打印作业？
<END> 
9,在调用PageSetupDlg 和 PrintDlg后，如何获取用户选择的打印机名称以及纸张型号 
请问： 
    1．在调用 PageSetupDlg 和 PrintDlg 函数后，如何从调用参数（PAGESETUPDLG 结构或 PRINTDLG 结构）中获取用户选择的打印机名称以及纸张型号？ 
    2．何处能查到 PAGESETUPDLG 结构和 PRINTDLG 结构中的 flags 元素的引用常数值以及各常数所代表的含义？ 
<END>    
10,用ActiveReport打印报表时，为什么每打印一页内容总会间隔一页空白的纸张 
用ActiveReport打印报表时,为什么会每打印一页内容总会间隔一页空白的纸张,例如,我要打印两页内容,打印机会出来四张纸,其中两张是空白的。请指教! 
<END>
11,如何学生的姓名和图象（bmp格式)对应的打印到纸 
我要请教的是如何把一个教室的30个学生的姓名和图象（bmp格式)对应的打印到纸上。其中学生姓名和学号用一个sql语句从access库中取出，学生相片以其学号为文件名存在硬盘上。请大侠帮忙！
<END>    
12,使用basic自带的数据报表在在更新数据源后，无法更新数据 
使用basic自带的数据报表在在更新数据源后，无法更新数据。老是打印第一次的数据。要把程序关掉后，再进去方可刷新新数据。数据报表是利用数据环境生成的COMMAND拉过来。 
<END>    
13,使用datareport制作报表，到了页末，可能只显示数据，但表格显示到下一页 
我使用datareport制作报表，细节区有数据和表格线，现在的问题是有时候到了一页的末尾，可能只显示数据，但表格显示到下一页了，不知怎么解决，多谢！ 
<END>
14,使用 VB6 的数据报表处理分组数据时，同组的数据内容不允许跨页打印 
我在使用 VB6 的数据报表处理分组数据时，要求每一页纸可以打印多组，但同组的数据内容不允许跨页打印（VFP中的报表提供了该控制功能）。VB6的数据报表虽然提供了“强制分页”属性，但却无法满足上述要求，特向各位高手给予指教。
<END>
15,能定制水晶报表显示的窗口吗 
调用水晶报表显示时下部会出现一排图标工具栏，可以对其进行定制吗？至少可以加上tooltip之类的提示啊！或者干脆不让它显示！
<END>
16,如何实现Crystal设计报表与SQL Server的绑定操作 
1.使用VB6的DataReport报表设计器，用DataEnvironment数据环境，与固定的表相关联，可是发现在设计表的格式时要一项一项添加Label控件及Text控件，而且表格中的每条线也要自己用RptLineR控件来画，且这条线不能一直从"页标头"画到"细节"处，很麻烦，请问有没有更简单的方法比如选择某种报表格式的模板？请指教，先谢谢您了！ 
    2.如果使用vb6中Crystal设计报表，我只知道它可以直接与Data控件绑定，而此控件的数据源中没有SQL Server，请问如何实现此报表设计器与SQL Server的绑定操作？ 
<END>
17,在Crystal Reports中使用公式增强报表功能 
Crystal Reports是目前国内应用得比较普及的报表工具。该工具随Visual Basic和Visual C++提供给用户，许多数据库软件设计者都把它作为报表设计的首选工具。Crystal Reports的基本功能很强大，但是用户对于报表内容和格式的要求往往更高，特别是对于不同条件下的累计，这时候就需要利用Crystal Reports的公式功能来增强报表功能。 
<END>    
18, 调用crystal report打印报表，可是打印出的字体在不同的打印机上不一样 
在下用中文vb6.0编程，调用工具crystal report（英文）打印报表，可是打印出的字体在不同的打印机上不一样，哎呀，这可急坏在下了，我不可能用一种打印机就去调一次字体呀。 请教各位大虾，是否有什么办法以解在下之燃眉之急呢？ 
<END>    
19,在运行时如何获得打印机当前选定的纸张型号及尺寸 
请问Visual Basic 6.0在运行时如何获得打印机当前选定的纸张型号及尺寸？如何获得当前系统选定的打印机名称（即在Printers(n))中n的具体编号？请赐教！ 
<END>
20,在onClose 事件设置Action为caMinimize或caHide 后，程序也关闭了 
我 在 使 用 Form 的 onClose 事 件 时 老 是 遇 到 问 题 。 
    我 是 参 考 了 c++ builder 自 己 带 的 help 后 尝 试 的 . 
    代 码 如 下 : 
    // 
    void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) 
     
    { 
     
     Action = caMinimize; 
    } 
    // 
    可 是 编 译 运 行 后 程 序 就 关 闭 了 ,而 不 是 最 小 化 ,在 改 用 了 caHide 后 情 况 也 是 一 样 程 序 也 关 闭 了 。 
    倒 是 在 用 caFree 和 caNone 时 情 况 正 常 。 我 想 问 问 ,是 不 是 我 什 么 地 方 没 有 注 意 到 呢 ? 
    请 一 定 解 答 ,.不 甚 感 谢 ... 
    可 能 这 对 于 您 来 说 是 个 简 单 的 问 题 。