WinForms윈폼 그래프 문의
페이지 정보
작성자 libero809 작성일 2021-01-22 12:19 조회 5,429회 댓글 0건본문
관련링크
안녕하세요 ?
아래 (1) 번 사진과 같이 스프레드로 보이는 화면이 엑셀 다운로드를 하면 (2)과 같이 바뀌는데
(1)을 유지한 채로 그냥 화면 인쇄할 수 있는 방법을 알 수 있을까요 ? (엑셀다운로드 없이)
(1) 사진1
(2)사진
그리고 아래와 같이 추가로 선택을 3개만 하면 그래프가 뚱뚱하게 바뀌어 버립니다.
그래프의 폭이 정상적으로 보이게 고정되도록 할 수 있는 코드나 방법을 좀 부탁드립니다.
아래코드로는 다 카바가 안되고 있습니다.
도움 부탁드립니다.
Dim printset As New FarPoint.Win.Spread.PrintInfo()
Dim printmar As New FarPoint.Win.Spread.PrintMargin()
Dim 여백 As Integer = 10
printmar.Left = 여백
printmar.Right = 여백
printmar.Top = 여백
printmar.Bottom = 여백
printset.Centering = FarPoint.Win.Spread.Centering.Both
printset.FirstPageNumber = 1
printset.ShowGrid = False
printset.Opacity = 60
printset.Orientation = FarPoint.Win.Spread.PrintOrientation.Portrait
printset.ShowBorder = False
printset.ShowColor = True
printset.ShowColumnHeader = FarPoint.Win.Spread.PrintHeader.Hide
printset.ShowRowHeader = FarPoint.Win.Spread.PrintHeader.Hide
printset.ShowGrid = False
printset.ShowShadows = False
printset.ZoomFactor = 0.9
printset.Orientation = FarPoint.Win.Spread.PrintOrientation.Landscape
printset.BestFitCols = True
printset.BestFitRows = True
Fp수수료차트.ActiveSheet.PrintInfo = printset
Dim mFileNM As String = myfolderName & "TEMP\수수료비교" & Format(Now, "yyyyMMddHHmmss") & ".xls"
Fp수수료차트.ActiveSheet.Protect = False
Fp수수료차트.SaveExcel(mFileNM, FarPoint.Excel.ExcelSaveFlags.SaveCustomColumnHeaders)
Dim oEXCEL As Object = CreateObject("EXCEL.APPLICATION")
Dim oBOOK As Object = oEXCEL.workbooks.open(mFileNM)
oEXCEL.visible = True
댓글목록
등록된 댓글이 없습니다.