Excel Fullscreen Maximized - Baskı Önizleme

Excel Fullscreen Maximized - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Fullscreen Maximized (/konu-excel-fullscreen-maximized.html)

Sayfalar: 1 2

Excel Fullscreen Maximized - zaferlacin - 21/12/2019

Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi

burada excel'in fullscreen (maximize) gelmesini nasıl sağlayabililriz

Cvp: Excel Fullscreen Maximized - berduş - 21/12/2019

(21/12/2019, 14:48)zaferlacin yazdı: Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi

myWorkbook .DoCmd.RunCommand acCmdAppMaximize kodunu ekler misiniz?

Cvp: Excel Fullscreen Maximized - zaferlacin - 21/12/2019

(21/12/2019, 14:57)berduş yazdı:
(21/12/2019, 14:48)zaferlacin yazdı: Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi
myWorkbook .DoCmd.RunCommand acCmdAppMaximize kodunu ekler misiniz?

object dosent support this propery or method

hatası geliyor hocam

Cvp: Excel Fullscreen Maximized - berduş - 21/12/2019

Kodu nereye eklediniz?
Hata benim dediğim kodda mi çıktı?

Cvp: Excel Fullscreen Maximized - zaferlacin - 21/12/2019

(21/12/2019, 14:57)berduş yazdı:
(21/12/2019, 14:48)zaferlacin yazdı: Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi
myWorkbook .DoCmd.RunCommand acCmdAppMaximize kodunu ekler misiniz?

Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
myWorkbook .DoCmd.RunCommand acCmdAppMaximize -----------buraya yazdığımda not set hatası geliyor
Set appExcel = CreateObject("Excel.Application")

Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")
myWorkbook .DoCmd.RunCommand acCmdAppMaximize ---------buraya yazdığımda yazdığım hatayı veriyor
appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi

Cvp: Excel Fullscreen Maximized - berduş - 21/12/2019

appExcel.Visible = True
appExcel.ActiveWindow.WindowState = xlMaximized
Şeklinde dener misiniz