langue：VB
    date:2020-04-02
 
Set ExcelApp = CreateObject("Excel.Application")             ’创建资源，建立连接
Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm")
Set ExcelSheet = ExcelBook.Worksheets(1)     
With ExcelSheet
	.Range("B" & i) = "如何写内容"
	'.Range("B7:G38") ="选择范围"
	ExcelSheet.Range("G" & i).Select              '选择单元格范围
	ExcelApp.Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"   '自定义日期格式
	ExcelApp.Selection.NumberFormatLocal = "@"         '文本格式
	.Range("G" & i) = "相信我，这里的内容马上就要变成 仿宋 14size 加粗 了"
	ExcelApp.Selection.Font.Name = "仿宋"
	ExcelApp.Selection.Font.Size = 14
	ExcelApp.Selection.Font.Bold = True
		
	ExcelSheet.PageSetup.PrintArea = "$A$1:$H$39"          '选择打印范围，开始打印页面设置
	ExcelSheet.PageSetup.CenterHorizontally = 2 / 0.035    '水平居中
	ExcelSheet.PageSetup.CenterVertically = 2 / 0.035      '垂直居中
	ExcelSheet.PageSetup.Zoom = False              '缩放大小0-100， 这里不使用它
	ExcelSheet.PageSetup.FitToPagesWide = 1        '调整内容至1页宽
	ExcelSheet.PageSetup.FitToPagesTall = 1        '调整内容至1页高
End With
ExcelBook.Save
ExcelBook.Close
Set ExcelSheet = Nothing           ‘释放内存，归还资源，这很重要
Set ExcelBook = Nothing
Set ExcelApp = Nothing

如果直接在CSDN页面上Ctrl + P打印，肯定会是这样的预览页面
 
 
页面显示不全，格式不正确，等等。
 这是因为页面的CSS等元素干扰了打印。
 
只要把那些干扰元素删除，再打印就OK了
 
复制以下代码，打开要打印的页面。
 
 (function(){

    $("#side").remove();

    $("#comment_title, #comment_list, #comment_bar, #comment_form, .announce, #ad_cen, #ad_bot").remove();

    $(".nav_top_2011, #header, #navigator").remove();

    $(".csdn-side-toolbar,.template-box,.reward-user-box").remove();

    $(".p4course_target, .comment-box, .recommend-box, #csdn-toolbar, #tool-box,#dmp_ad_58").remove();

    $("aside").remove();

    $(".tool-box").remove();

    $("main").css('display','content');

    $("main").css('float','left');

    $("#mainBox").css('width','1048px');

    $("#mainBox").css('margin-left','0px');

    $("#mainBox").css('margin-right','0px');

    //$("[class='main_father clearfix d-flex justify-content-center']").css("width","1048px");

    $(".main_father.clearfix.d-flex.justify-content-center").css("width","1048px");

    window.print();

    $("tool-box").remove();

    })();
 
打开Chrome或者Firefox的开发者工具的console。（设置->更多工具->开发者工具）
 将代码粘贴到console中，回车。
 
 

 
 
在sap做一个打印报表，要先设置一个纸张打印格式，下面以工厂中常用来打印的针孔纸为例，在sap设置该纸张的打印格式，以用于报表：
 
1、运行事务代码SPAD；选择工具栏上的【完全管理】按钮——>选择【设备类型】页面（在该页面上有四个按钮：【设备类型】、【打印控制】、【格式类型】、【页格式】）； 
 
2、选择【页格式】进入页格式列表界面，选择工具栏上的【修改】图标，工具栏左边会出现【新建】图标（注：不点【修改】图标是不会出现【新建】图标的）；选择【新建】图标进入新建页格式界面，输入页格式名称“zkz”，方向选择肖像“Portrait”即竖向，纸张大小为：纸宽“215mm”、纸长“140mm”；（注：方向选为竖向则纸打印时是按竖向来作打印，如方向选横向则按横向打印，当你纸张设为140*215时才可横向打印）；保存退出；
 
3、选择【格式类型】进入格式列表界面，选择工具栏上的【新建】图标进入新建格式界面，格式类型输入“215*140”，类型选择“sapscript”或“abap列表”均可；属性选择前面设置的页格式名称“zkz”，填写注释“xxxxx”；保存退出；
 
4、选择【设备类型】进入设备类型列表界面，在列表中选择设备类型为“CNSAPWIN”双击进入设备类型(更改)界面，选择工具栏上的【格式】按钮图标进入设备类型格式修改界面，选择【新建】图标，在弹出的对话框的“格式化”框内填入上面所设置的格式类型“215*140”，确定即可。
 
因为“设备类型”那里有一项"Do not use printer driver for abap list print" ; “列表格式”里, Comment默认的就是 abap list.
进到“列表格式”里,将 Comment设成类似Letter那个,
现在可以打印了。
 
至此就为SAP的报表打印设置了针孔纸的纸张打印格式，接着是在报表中的使用：
 
5、write输出的方式，不需要在程序中设置，只是在打印时要求用户选择“格式类型”为上面所设置的“215*140”;
 
6、smarform方式，在使用事务代码smartforms画表格时，在“表格属性”栏的“输出选项”中的“页格式”选择上面所设置的“215*140”即可。
 
7、对于针式打印机，其默认纸张都是A4，我们需要自定义一种纸张的大小，定义纸张格式为215*140，实际尺寸可设置为214.5mm/139.5mm。
 
至此，你的ABAP报表就可以使用针式打印打印出正确的格式出来了。
 
注意：由于SAP与针式打印机之间接口的问题，如果表格线太细，打印出来的表格会有时缺少部分横线和竖线，纠正办法是：加粗表格的表框线，最好设置到20TW。
 
samrtform报表，要用横向的 LETTER 格式纸张，
浅浅暖暖 13:17:08
页格式可以直接选横向
浅浅暖暖 13:18:04
在页和窗口里选中页，输出选项，横向格式
[@more@] 
 
 
 
 来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/20037923/viewspace-1015968/，如需转载，请注明出处，否则将追究法律责任。 
 
 
转载于:http://blog.itpub.net/20037923/viewspace-1015968/

 
 

  公众号：
  SAP Technical
 
 
 

  本文作者：
  matinal
 
 
 

  原文出处：
  http://www.cnblogs.com/SAPmatinal/ 
 
 
 

  原文链接：
  【ABAP系列】SAP Smartforms 设置纸张打印格式
 
 
 

   
 
 
 
 
 
 
 
 
前言部分
 
 
大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。
 
 
正文部分
 
 
在sap做一个打印报表，要先设置一个纸张打印格式，下面以工厂中常用来打印的针孔纸为例，在sap设置该纸张的打印格式，以用于报表：
 
 
1、运行事务代码SPAD；选择工具栏上的【完全管理】按钮——>选择【设备类型】页面（在该页面上有四个按钮：【设备类型】、【打印控制】、【格式类型】、【页格式】）；
 
 
2、选择【页格式】进入页格式列表界面，选择工具栏上的【修改】图标，工具栏左边会出现【新建】图标（注：不点【修改】图标是不会出现【新建】图标的）；选择【新建】图标进入新建页格式界面，输入页格式名称“zkz”，方向选择肖像“Portrait”即竖向，纸张大小为：纸宽“215mm”、纸长“140mm”；（注：方向选为竖向则纸打印时是按竖向来作打印，如方向选横向则按横向打印，当你纸张设为140*215时才可横向打印）；保存退出；
 
 
3、选择【格式类型】进入格式列表界面，选择工具栏上的【新建】图标进入新建格式界面，格式类型输入“215*140”，类型选择“sapscript”或“abap列表”均可；属性选择前面设置的页格式名称“zkz”，填写注释“xxxxx”；保存退出；
 
 
4、选择【设备类型】进入设备类型列表界面，在列表中选择设备类型为“CNSAPWIN”双击进入设备类型(更改)界面，选择工具栏上的【格式】按钮图标进入设备类型格式修改界面，选择【新建】图标，在弹出的对话框的“格式化”框内填入上面所设置的格式类型“215*140”，确定即可。
 
 
5、对于是使用write输出报表的，可以双击上述做好的格式类型“215*140”进入maintain format界面，双击要编辑的地方，进入代码编写界面，可在代码中写打印的行间距、字间距、字体、字体大小。
 
 
至此就为SAP的报表打印设置了针孔纸的纸张打印格式，接着是在报表中的使用：
 
 
6、write输出的方式，不需要在程序中设置，只是在打印时要求用户选择“格式类型”为上面所设置的“215*140”;
 
 
7、smarform方式，在使用事务代码smartforms画表格时，在“表格属性”栏的“输出选项”中的“页格式”选择上面所设置的“215*140”即可。
 
 
8、对于针式打印机，其默认纸张都是A4，我们需要自定义一种纸张的大小，定义纸张格式为215*140，实际尺寸可设置为214.5mm/139.5mm。
 
 
至此，你的ABAP报表就可以使用针式打印打印出正确的格式出来了。
 
 
注意：由于SAP与针式打印机之间接口的问题，如果表格线太细，打印出来的表格会有时缺少部分横线和竖线，纠正办法是：加粗表格的表框线，最好设置到20TW。
 
 
转载于:https://www.cnblogs.com/SAPmatinal/p/11184634.html