Fpspread打印

Fpspread打印

    CommonDialog1.Action = 5

   

    k = fpSpread2.MaxRows

    fpSpread2.MaxRows = k

    fpSpread2.PrintOrientation = PrintOrientationLandscape

    fpSpread2.PrintMarginTop = 1000

    fpSpread2.PrintMarginBottom = 1000

    fpSpread2.PrintMarginLeft = 1000

    fpSpread2.PrintMarginRight = 1000

    fpSpread2.PrintJobName = "SumBgs Software"

    fpSpread2.PrintBorder = True

    fpSpread2.PrintHeader = "/fn""黑体""/fz""18""/c保税区货物区内结转进库单报关料件信息/n/n/n" & "/fn""黑体""/fz""12""/l进库单号：" & Text1.Text & "/c进库类型：" & Text2.Text & "/r进库日期：" & Text5.Text & "   /n/n" & "/l原货主名称：" & Text4.Text & "/c原货主10位编码：" & Text6.Text & "/r原企业编号：" & Text3.Text & "   /n/n" & "/l现货主名称：" & Text8.Text & "/c现货主10位编码：" & Text9.Text & "/r现企业编号：" & Text7.Text & "   /n"

    fpSpread2.PrintFooter = "/fn""黑体""/fz""14""/r上海外高桥保税区海关监制"

    fpSpread2.PrintBorder = True

    fpSpread2.PrintGrid = True

    fpSpread2.PrintType = PrintTypeAll

    fpSpread2.PrintRowHeaders = False

    fpSpread2.PrintShadows = False

    fpSpread2.Action = ActionPrint