Question

delphi 窗体右键弹出“打印”要直接横向打印，不要跳出打印设置怎么弄，解释详细点，我是初学者

i := Printer.Printers.IndexOf('printer name'); // 代入打印机名字
if i >= 0 then Printer.PrinterIndex := i; // 设定打印机
Printer.Orientation := poLandscape; //设定横向打印
这样的代码放入unit2的什么地方才可以呀

Answer 1

简介
简介 JasperReports是一款开源的报表打印组件，是开源代码组织sf.net中的一个java报表打印工程，可以以PDF, HTML或XML等多种形式产生报表，支持分页打印，并且可以制作各种类型的图表。Jasperreport是按照一个预定义的xml文档来组织报表的数据，这些数据来源多样，包括关系数据库（通过配置JDBC连接）、java容器对象（collection和arrays）。要完成报表的填充，必须先完成用于报表的xml文件，其过程是先产生报表设计对象，再序列化该对象，存储在磁盘或者网络，用于产生特定应用的表格数据。事实上，表单的设计过程就是用定义于xml文件中的java表达式来表现报表的设计。编辑过程中会有各种保证数据一致性的验证，最终会产生相关数据文档或填充数据的准备。 iReport也是开源组织sf.net中的一款免费软件，其主要作用是以可视化的方式升级生成JasperReport所使用的报表格式文件，因为JasperReport本身没有提供很好的可视化报表设计工具，iReport正好弥补了这个缺陷，因此我们常常将这两个工具结合起来使用。 JasperReports可以在这个地址得到： iReport 可以在这个地址得到： iReport的使用 iReport的安装 安装iReport首先需要在本机安装JDK，并对环境进行配置，最新版的JDK可以从 处下载并安装，然后配置windows环境变量，在path后面加入“;java的安装目录”，新建环境变量 JAVA_HOME ：“java的安装目录” CLASSPATH：“java的安装目录\bin” 如果已经安装过JDK，则可以跳过这些步骤。然后从iReport的站点下载最新的版本的iReport，解压iReport在任意目录，解压后的文件里面有一个iReport.bat，通过双击，过大约30秒钟如果可以弹出iReport的主窗体即表明你的系统已经可以运行iReport了，如果不能弹出主窗体，一般是因为JDK没有正确被安装。在iReport中配置数据库使用iReport的第一步是配置数据库连接，选择菜单“资料来源/连接资料来源”，打开如下的对话框， 点击“New”，打开如下对话框，可以创建数据连接， 我们以创建JDBC数据源为例，在“Type of connection / datasource”列表中，选择“Database.JDBC.connection”，在“Name”中，为创建的新的连接取一个需要的名字，在JDBC Driver中，选择一个驱动，我们以Oracle为例，选择“oracle.jdbc.driver.OracleDriver”，在JDBC URL中输入JDBC连接，例如：“jdbc:oracle:thin:@localhost:1521:TANGO”，同时请在Username和Password中输入连接数据库的用户和密码。注意一点OracleJDBC的包必须在环境变量的CLASS_PATH中配置。全都创建好后，点击“Test”可以进行对数据库连接的测试。建立连接后，就可以对数据表进行查询，选择菜单“资料来源/报表查询”，打开如下对话框： 在“Report SQL query”页中，可以输入任意的sql数据来得到数据，当输完完整的sql语句后，iReport自动将所有字段列表列出，这些字段就是可以在报表制作过程中可以使用的变量。另外需要注意的是：当我们创建了多个数据源的时候，需要设定一个当前的数据源，选择菜单：“设定/设置当前数据源”，打开如下对话框： 可以在所有建立的数据源中设置当前使用的数据源。从java容器获得数据通过JDBC获得数据非常方便，但我们通常不会在设计期就确定完整的sql语句，通常我们在运行期都需要构造一些动态的sql，当然，我们可以通过编程的方式来构造sql并传递给iReport，但是复杂的sql语句不便于维护，也容易出错。JasperReports允许从java容器中获得数据，首先告诉iReport，java容器类的路径，选择菜单：“工具/classpath”，如图： 设置完路径后，再次选择菜单“资料来源/报表查询”，到“JavaBean Datasource”页，在Class Name中输入容器类的全路径，如下图： 点击“Read javabeans attributes”，容器中的字段就全部被读取了出来。至此为止，我们已经可以开始制作报表了。开始使用iReport iReport的开发界面和我们熟悉的delphi著名插件quickreport比较相似，整个页面由若干个band组成，每个band实现不同的显示方式。界面如下： 新建报表单击工具栏的第一个按钮“New Report”，或者通过菜单“报表/新增”进入创建报表菜单，如下图： 在报表名称栏内给创建的报表取个名字，然后是定义纸张的大小，iReport提供了多种预设尺寸，当然也可以选择自定义的页面尺寸，并提供两种定位方式，也即横向和竖向。在对话框的下半页，还可以设置页边距，列等等。当都设置完成，点击“OK”，完成新建动作。报表结构创建了一个新的报表后，我们来看看报表的结构。一个报表的结构大致是几个部分：title、pageHeader、columnHeader、detial、columnFooter、pageFooter、summary、groupHeader、groupfooter。 Title：每个报表一般会有一个名字，比如×××销售报表，title就是搁置这个名称的最好地方了，当然你也可以根据需要搁置在合适的地方。 pageHeader：报表的一些公共要素，比如页码、创建时间、创建人等信息放置在这里是比较好的选择。在每页头都会打印一遍 columnHeader：这里是放置列的名称，记住不是列数据。 Detial：放置需要循环的数据，比如销售记录数据。 columnFooter：放置列级别的统计计算值或是列的说明。 pageFooter：放置页级别的统计值或是页的说明。 Summary：可能需要对几页（你的报表可能有几个页组成）的统计值。比如50个销售记录共占用了3页，那么放置这些统计记录的统计值最好的地方就是summary。 groupHeader：每个表的内容可能需要根据某个属性进行划分显示内容和计算内容，比如希望以月份为单位每组分开显示销售记录，那么就可以定义一个组（组的定义参考后文），groupHeader就是放置组说明或是组标志最好的地方。 Groupfooter：放置组的统计或是说明。报表的动态对象变量、参数、字段在使用iReport的过程中会碰到很多与变量（Variables）、参数（Parameters）、字段（Fields）这些有关的内容，所以我们还是要先介绍这些对象的使用和意义：字段（Fields）：来自数据库，或是java容器对象。这些内容是报表显示的主体内容，语法为$F。参数（Parameters）：这是你的应用需要提供给报表的入口，比如你希望在报表被解释的时候提供Where语句的条件值，那么就可以使用参数（Parameters）。语法为$P，可以给报表提供多个参数，通过一个HashMap传入。使用参数前，参数必须在iReport中进行配置，如，我们需要在打印时得到打印操作人，我们创建一个参数打印人：printOperator。选择菜单“预览——报表参数”，打开如下对话框： 在参数页面，点击“新增”按钮，继续打开如下新增参数对话框： 在“Parameter name”内，填入参数名称：“printOperator”，在“Paramenter class type”选择框中，选择参数的类型，我们这里选择“java.lang.String”，在“Default value expression”中填入当传入的值缺失时的缺省值，因为iReport是纯java语言开发，因此支持任何java语句。在“Paramenter description”中可以对该参数进行一些描述。点击“OK”完成参数的创建。下面给出简单的程序调用实例： HashMap map = new HashMap(); Map.put(“printOperator”,”陈宁”); JasperFillManager.fillReport(jasperReport,map,ds); 变量（Variables）：这是报表中一些逻辑运算的表现，比如统计值（求和，最大值，最小值等等）。语法为$V，例如我们要对定单金额进行求和，假设定单金额的数据库字段为amt，我们现在创建变量名为totalAmt的对定单金额进行汇总的变量，点击菜单“预览/报表变量”，打开如下对话框： 我们看到iReport已经为我们预先定义了五个有用的变量，供我们使用，具体含义如下： • $V: 报表处理的记录笔数 • $V: 打印时的页码 • $V: 本页处理的记录笔数 • $V: 报表的直栏数目 • $V: 本栏的处理笔数 • $V: 群组Band的处理笔数，建立群组时会自动产生的变量其中最后一个变量是根据分组情况自动生成的。我们现在新增一个自己定义的变量，点击“新增”，打开新增变量对话框： 在“Variable name”中，输入变量名：“totalAmt”，在“variable class type”中选择变量的类型“java.math.BigDecimal”，在“Calculation type”中选择计算的类型，这里是求和“Sum”，在“Variable expression”中输入变量的表达式，我们这里是取数据库中的字段amt，所以写成“$F”，请注意。当我们正确的配置了数据来源后，当我们输入的表达式正确，那么显示的颜色是绿色的的，当不能正确写对表达式的时候，是如图所示的蓝色。然后我们在“initial value expression”中输入初始化的值，这里同样输入java语句：“new java.math.BigDecimal(0)”。点击“OK”，完成参数的设置。在报表页面放置元素 iReport的工具栏提供了丰富的元素，从简单的内容到包括图形，分组报表都支持。我们主要介绍两类，一类为静态文本，一类为动态文本。这两个工具按钮如下： 点击“T”的工具按钮，打开添加“静态文本”的对话框。 他的用法比较简单，有一些计算机使用经验的人都能看懂，就不在这里介绍了。这里只说一点：要显示的内容是在Static Text页面中输入，在Print when expression中，可以接受返回类型为Boolean的java表达式，当返回Boolean.TRUE，才会打印该静态文本，当返回为Boolean.FALSE则不打印，在本文后面会介绍利用这个特性打印黑白交替的行显示效果。我们再看看动态文本，点击“F”，打开如下对话框： 动态与静态文本大致类似，动态文本在“Text Field”中接受表达式，在“Textfield expression”中，输入动态表达式“$F”，如图，绿色代表输入正确。在Pattern中，还可以输入数据显示的格式。制作报表有了上面的基本知识，我们就可以开始制作报表了。我在制作报表中，考虑了以下的思路。首先，取数据通过java容器，而不是直接连接数据库，这是因为我们制作的报表通常都比较复杂，很难直接通过一个简单的sql语句来实现，就算我们可以写一个复杂的select语句来实现一个报表的查询，但是对于以后的维护和排错也是相当困难的，因此不建议这样的做法。从另一个角度考虑，报表的很多查询条件是根据用户的输入来动态的创建的，我们在后台对数据进行整理和加工都会使程序的调试和实现变得简单。我创建了数据容器类：ReportBaseObject，非常简单，部分代码如下： public class ReportBaseObject public void setB_data_1(BigDecimal b_data_1) …… public Date getD_data_1() public void setD_data_1(Date d_data_1) …… public Integer getI_data_1() public void setI_data_1(Integer i_data_1) …… public String getS_data_1() public void setS_data_1(String s_data_1) …… } 这是一个通用的数据容器，容器中定义了20个字符类型的字段，20个数字类型的字段，10个日期和10个整型，这个容器对于任何报表都适合，这样做是基于以下考虑。我把报表制作分为两个部分，第一部分是用iReport制作报表界面，第二部分在后台根据用户传入条件取得报表需要的数据。而第一部分可以由项目人员在现场制作后后期进行修改，而第二部分由开发人员完成，因此要求这两部分的工作可以分离，通过提供一个通用对象，我们可以实现这一目的。工程人员在现场和客户洽谈需求，并在没有数据的情况下，开始制作报表界面，他们所要做的就是用一张表格列出他们需要的数据的含义：如： baseObject 对应字段 说明 报表编号：01_001 S_data_1 单号 S_data_2 单据类型 D_data_1 要货日期 D_data_2 批准时间 B_data_1 应付金额 B_data_2 已付金额 在与用户确认了界面后，工程人员将表格传递给开发人员，开发人员就根据表格所标注的字段意义给容器填写数据。以下是我画的报表截图： 显示不同的背景如下图所示，我们希望打印出灰白相间的行效果，可以利用上文提到的“print when expresssion”属性来实现，具体做法有两种： 在同一列上放相同字段的TextField，一个不设背景（预设为白色），另一个设背景（淡黄色） 白色背景的Print when expression输入new Boolean((($V.intValue()) % 2)==0) 灰色背景的Print when expression输入new Boolean((($V.intValue()) % 2)==1) 另一个方法是先在Detail Band上拉一个矩形，设其背景为淡黄色，设其Print when expression为new Boolean((($V.intValue()) % 2)==1)，意即奇数列时才要印出这个淡黄底色的矩形。再设其前景为白色，使矩形边界的黑框消失。在矩形上放需要的Text Field，并将其Transparent打勾，意即此Text field是透明的。

调用IE内置打印组件完成web打印方案及例程
重点：
＜OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0 VIEWASTEXT＞
＜/OBJECT＞
＜input type=button value=打印 onclick="document.all.WebBrowser.ExecWB(6,1)" class="NOPRINT"＞
＜input type=button value=直接打印 onclick="document.all.WebBrowser.ExecWB(6,6)" class="NOPRINT"＞
＜input type=button value=页面设置 onclick="document.all.WebBrowser.ExecWB(8,1)" class="NOPRINT"＞
＜input type=button value=打印预览 onclick="document.all.WebBrowser.ExecWB(7,1)" class="NOPRINT"＞

注意：
1、CSS对打印的控制：
＜!--media=print 这个属性可以在打印时有效--＞
＜style media=print＞
.Noprint
.PageNext
＜/style＞

Noprint样式可以使页面上的打印按钮等不出现在打印页面上，这一点非常重要，因为它可以用最少的代码完成最需要的功能

PageNext样式可以设置分页，在需要分页的地方＜div class="PageNext"＞＜/div＞就OK了，呵呵

2、表格线粗细的设置，更是通过样式表：

＜style＞
.tdp
{
border-bottom: 1 solid #000000;
border-left: 1 solid #000000;
border-right: 0 solid #ffffff;
border-top: 0 solid #ffffff;
}
.tabp
{
border-color: #000000;

border-collapse:collapse;
}
＜/style＞

或者：

＜style＞
.TdCs1 {
border:solid windowtext 1.0pt;
}
.TdCs2 {
border:solid windowtext 1.0pt; border-left:none;
}
.TdCs3 {
border-top:none;
border-left:solid windowtext 1.0pt;
border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
}
.TdCs4 {
border-top:none;
border-left:none;
border-bottom:solid windowtext 1.0pt;
border-right:solid windowtext 1.0pt;
}
.underline {
border-top-style: none;
border-right-style: none;
border-bottom-style: solid;
border-left-style: none;
border-bottom-color: #000000;
}
＜/style＞

很多种打印的方式了，你走走脑子上网艘艘，没有找不到的
给你个打印excel例子，跟上面的不同
下载一个叫jcom的lib，鬼子做的
把包里的jcom.jar放到classpath，把jcom.dll放到java_home/bin下面
public class JCOM {

public boolean print(String fname) {
ReleaseManager rm = new ReleaseManager();
try {
ExcelApplication excel = new ExcelApplication(rm);

ExcelWorkbooks xlBooks = excel.Workbooks();
ExcelWorkbook xlBook = xlBooks.Open(fname);
ExcelWorksheet xlSheet = excel.ActiveSheet();

xlSheet.PrintOut();

xlBook.Close(false, null, false);
excel.Quit();
} catch (Exception e) {
e.printStackTrace();
return false;
} finally {
rm.release();
}
return true;
}

public static void main(String[] args) {
JCOM test = new JCOM();

try {
test.print("c:\\test.xls");
} catch (Exception e) {
e.printStackTrace();
}
}
}

Answer 2

我晕，你直接在我上次的回答上追问就行拉，这些放在按钮的事件里面，比如说:
procedure Tmainform.printButtonClick(Sender: TObject);
begin
i := Printer.Printers.IndexOf('printer name'); // 代入打印机名字
if i >= 0 then Printer.PrinterIndex := i; // 设定打印机
Printer.Orientation := poLandscape; //设定横向打印
Printer.BeginDoc; // 设定打印内容

// Set up a large blue font
Canvas.Font.Size := 20;
Canvas.Font.Color := clBlue;

// Write out the page size
Canvas.TextOut(20, 20, 'Page width = '+IntToStr(PageWidth));

// Finish printing
Printer.EndDoc;
end;