spreadsheet te sayfa yönü

[öğrtm]

mrb
arkadaşlar spreadsheet nesnesinde sayfa yönü (PageSetup.Orientation) ayarı yapılamıyor mu?

kendim uğraştım olmuyor.propertistede bi ayar göremedim.acaba bu mümkün değil mi?

 

[mustafaine1]

ActiveSheet.PageSetup.Orientation = 2 ' yatay
ActiveSheet.PageSetup.LeftMargin = 36
ActiveSheet.PageSetup.RightMargin = 36
ActiveSheet.PageSetup.TopMargin = 54
ActiveSheet.PageSetup.BottomMargin = 54
ActiveSheet.PageSetup.RightFooter = "Page &P of &N"

bu sekidle ornekler gordum..

 

[öğrtm]

mustafa bey verdiğiniz örnekler excel çalışma kitabında kullanılan sayfa ayarları o kodlardan yola çıkarak spreadsheet e uyarlamaya çalışmıştım olmadı.ilginiz için teşekkürler

arkadaşlar konu ilgilenenler için güncel

 

[mustafaine1]

PageSetup.Orientation = xlPortrait

bu sekilde denediniz mi acaba, aslinda openoffice`in sitesinde yapilamadigina dair bilgi vermisler ama..

 

[öğrtm]

aşağıda yazdığım kod benim kendi çalışmam fakat sonuş olumsuz

'Sayfa yönünü ayarlıyoruz.
If OptionButton1.Value = True Then
Me.Spreadsheet1.Sheets.("Sayfa1").PageSetup.Orientation = xlPortrait
Else
Me.Spreadsheet1.Sheets("Sayfa1").PageSetup.Orientation = xlLandscape
End If

 

[mustafaine1]

denemissiniz arastirdim ama pek sonuc bulamadim, ama pdf yaparak sanirim landscape te yapabilirsiniz... isterseniz o konu hakkinda biseyler bulabilirim..

 

[öğrtm]

mustafa bey ilginiz için teşekkür ederim.gerekirse excele verip oradan yazdırırken gerekli ayarlamarı yapmayı düşünüyorum.
iyi çalışmalar.

 

[mustafaine1]

Rica ederim yardimci olamadigim icin uzgunum.. siz cevap yazarken dedigim gibi arastirdim ve soyle bir ornek buldum, sadece incelersiniz kolay gelsin..

Private Sub PrintExcelToPDF(strFilePath As String)

  Dim objUDC As IUDC
  Dim itfPrinter As IUDCPrinter
  Dim itfProfile As IProfile
 
  Dim ExcelApp As Object
  Dim ExcelBook As Object
  Dim ExcelWorksheet As Object
  Dim ExcelPageSetup As Object

  Set objUDC = New UDC.APIWrapper
  Set itfPrinter = objUDC.Printers("Universal Document Converter")
  Set itfProfile = itfPrinter.Profile

' Use Universal Document Converter API to change settings of converterd document
  itfProfile.PageSetup.FormName = "A2"
  itfProfile.PageSetup.ResolutionX = 200
  itfProfile.PageSetup.ResolutionY = 200
  itfProfile.PageSetup.Orientation = PO_LANDSCAPE
 
  itfProfile.FileFormat.ActualFormat = FMT_PDF
 
  itfProfile.FileFormat.PDF.ColorSpace = CS_TRUECOLOR
  itfProfile.FileFormat.PDF.Multipage = MM_MULTI
  
  itfProfile.Adjustments.Crop.Mode = CRP_AUTO
 
  itfProfile.OutputLocation.Mode = LM_PREDEFINED
  itfProfile.OutputLocation.FolderPath = "C:\Out"
  itfProfile.OutputLocation.FileName = "&[DocName(0)] -- &[Date(0)] -- &[Time(0)].&[ImageType]"
  itfProfile.OutputLocation.OverwriteExistingFile = False
 
' Run Microsoft Excle as COM-server
  On Error Resume Next
  Set ExcelApp = CreateObject("Excel.Application")

' Open spreadsheet from file
  Err = 0 ' Clear GetLastError() value
  Set ExcelBook = ExcelApp.Workbooks.Open(strFilePath, , True)

  If Err = 0 Then
  
  ' Change active worksheet settings and print it
    Set ExcelWorksheet = ExcelBook.ActiveSheet
    Set ExcelPageSetup = ExcelWorksheet.PageSetup
    
    ExcelPageSetup.Orientation = 2 ' Landscape
  
    Call ExcelWorksheet.PrintOut(, , , False, "Universal Document Converter")

  ' Close the spreadsheet
    Call ExcelBook.Close(False)
    Set ExcelBook = Nothing

  End If

' Close Microsoft Excel
  Call ExcelApp.Quit
  Set ExcelApp = Nothing

End Sub

 

[öğrtm]

arkadaşlar başlıktan biraz farklı olarak aşağıdaki kod neden hata veriyor olabilir.

'Tablo oluşuyor
Me.Spreadsheet1.ActiveSheet.Range(Cells(3, 1), Cells(sonsat, sayac + 5)).Borders.LineStyle.LineStyle = xlContinuous
not: excel sayfasında sorunsuz çalışan bir koddu.spread sheet e uygulamaya çalışıyorum