Posted 18 October 2019, 7:23 pm EST
I use this code to PDF, but charts are not correct in the PDF.
Dim SaveD1 As String
SaveD.FileName = Me.Text
SaveD.Filter = "PDF (*.PDF)|*.PDF" ' PDF
SaveD1 = SaveD.ShowDialog()
If SaveD1 <> 1 Then Exit Sub
Dim printset As New FarPoint.Win.Spread.PrintInfo()
printset.ShowBorder = False
printset.PrintToPdf = True
printset.PdfWriteMode = FarPoint.Win.Spread.PdfWriteMode.Append
printset.PdfFileName = SaveD.FileName
printset.ShowRowHeader = FarPoint.Win.Spread.PrintHeader.Hide
printset.ShowColumnHeader = FarPoint.Win.Spread.PrintHeader.Hide
printset.ShowColor = True
printset.Margin.Right = 0 : printset.Margin.Left = 77
printset.Margin.Top = 60
printset.PrintType = FarPoint.Win.Spread.PrintType.All
printset.ShowPrintDialog = False
printset.Orientation = FarPoint.Win.Spread.PrintOrientation.Landscape
printset.JobName = "Utskrift sker.."
printset.BestFitCols = True
'printset.SmartPrintPagesWide = 1
'printset.SmartPrintPagesTall = 0
printset.UseSmartPrint = True
For Each SheetView In FpSpread1.Sheets
SheetView.PrintInfo = printset
Next
FpSpread1.PrintSheet(-1)