문의드립니다.

Spread Studio 8 버전에서도 하기와 같이

PDF 인쇄 또는 변환 후 파일 저장이 가능한지 문의드립니다.

  '-----------------------------------------------------------------------------------------------------------------

    ' PDF

    '-------------------------------------------------------------------------------------------------------------------

    Private Sub cmd_PDF_Click(sender As Object, e As EventArgs) Handles cmd_PDF.Click

        Dim saveFileDialog1 As New SaveFileDialog()

        Dim wList As New FarPoint.Excel.ExcelWarningList

        Dim vsHdChk As String = ""

        Dim FLNM As String = "1"

        FLNM = Replace(FLNM, "/", "")

        FLNM = Trim("미출고현황" & Replace(Md_Common.JOB_TIME2(), ":", "_"))

        saveFileDialog1.InitialDirectory = "C:\"

        saveFileDialog1.FileName = FLNM  ''vS.ActiveSheet.SheetName

        saveFileDialog1.Filter = "PDF (*.PDF)|*.PDF"

        saveFileDialog1.FilterIndex = 1

        saveFileDialog1.RestoreDirectory = True

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then

            For j = 0 To vS1.Sheets.Count - 1

                Dim pi As PrintInfo = New PrintInfo()

                pi.PrintToPdf = True

                pi.UseSmartPrint = True

                pi.Printer = Md_Common.LinkStr

                pi.Preview = False

                pi.ShowPrintDialog = True

                pi.Orientation = PrintOrientation.Landscape

                pi.PdfFileName = saveFileDialog1.FileName

                pi.ShowBorder = False

                '아래부터는 인쇄시 마진설정부분

                Dim Printmargin As New FarPoint.Win.Spread.PrintMargin

                Printmargin.Top = 0

                Printmargin.Left = 0

                Printmargin.Right = 0

                Printmargin.Bottom = 0

                Printmargin.Header = 0

                Printmargin.Footer = 0

                pi.Margin = Printmargin

                vS1.Sheets(j).PrintInfo = pi

            Next

            vS1.PrintSheet(-1)

        End If

    End Sub