我现在已经用vb把数据库里的数据成功导入到了excel模板中去,并显示出来。
请问如何用vb在代码中提前设定这个excel文件的
1、打印纸张(A4)以及打印方向(横向or纵向)
2、等比缩放到打印纸张大小
3、页边距
4、如何清除excel的某个范围里的内容:
比方说我要清除(清空).Range(.Cells(5, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count))里的所有数据,该如何清除。
哈哈,谢谢大家。

解决方案 »

  1.   

    EXCEL 菜单>> 工具 >>宏>>录制新宏   什么代码都能从里面出来 比如:
    Sub 设置纸张()
    '
    ' 设置纸张 Macro
    ' 宏由 USER 录制,时间: 2008-12-29
    ''
        With ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        ActiveSheet.PageSetup.PrintArea = ""
        With ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = Application.InchesToPoints(0.75)
            .RightMargin = Application.InchesToPoints(0.75)
            .TopMargin = Application.InchesToPoints(1)
            .BottomMargin = Application.InchesToPoints(1)
            .HeaderMargin = Application.InchesToPoints(0.5)
            .FooterMargin = Application.InchesToPoints(0.5)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = xlPrintNoComments
            .PrintQuality = 200
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlLandscape
            .Draft = False
            .PaperSize = xlPaperA4
            .FirstPageNumber = xlAutomatic
            .Order = xlDownThenOver
            .BlackAndWhite = False
            .Zoom = 100
            .PrintErrors = xlPrintErrorsDisplayed
        End With
    End Sub
      

  2.   

    谢谢啊,不过不太想用宏,老觉得这东东不安全。另外一些安全级别设置高的系统会不会屏蔽掉宏呢?
    哈哈,thank all the same.
      

  3.   

    哎~~~~  敢情你没看懂我说什么啊 你没发现 在VB中生成EXCEL的文件里的用的就是宏代码呀 录制一段宏 改吧改吧 写到VB里就是了 
      

  4.   

    录制的宏看起来太高深。
    基础上excle中按F1查一下,再google一下
      

  5.   

    在 Excel 中新建空白工作簿,只留一个工作表,设好纸张、打印方向、页边距等,如果有固定的标题、列头等也预先设好,数据留空,另存为“模板(*.xlt)”。
    程序中用 Application.Workbooks.Add 新建工作簿时,参数就用上面保存的这个 .xlt 文件,所有内容都从模板继承,也不需要清空数据了。
      

  6.   

    这个可以。
    在 Excel 中新建空白工作簿,只留一个工作表,设好纸张、打印方向、页边距等,如果有固定的标题、列头等也预先设好,数据留空,另存为“模板(*.xlt)”。 
    程序中用 Application.Workbooks.Add 新建工作簿时,参数就用上面保存的这个 .xlt 文件,所有内容都从模板继承,也不需要清空数据了。
    但是,其它的excel都被修改到这个格式。不如做一个空白表格,吧格式设好,需要写数据时,打开这个模板,写好后,另存为。