Sığdır modunda baskı önizleme

[merakli_72]

Merhaba Acceste
Docmd.Openreport "xxxxx",acviewPreview
şeklinde bir raporu baskı önizleme modunda açtığımda %100 olarak açıyor ve üzerine tıklayınca sığdır olup raporun tamamını bir sayfada gösteriyor.

Raporun ilk açılışta üzerine tıklamadan sığdır olarak açılmasını sağlayabilirmiyiz.
Rapor sürekli dönüp bir takım verileri göstereceğinden üzerine tıklanmadan direk tüm raporu gösterecek şekilde açılması gerekiyor.

Teşekkürler

 

[modalı]

Sayın merakl_72

Aşağıdaki fonksiyon raporun açılma boyutunu ayarlıyor.

Function PreviewAndZoomReport(ReportName As String, ZoomCoeff As Integer)

 On Error GoTo Error_Handler

    If Not (ZoomCoeff >= 0 And ZoomCoeff <= 2500) Then
        ZoomCoeff = 0
    End If

    With DoCmd
        .OpenReport ReportName, View:=acViewPreview
        .Maximize
    End With
    Reports(ReportName).ZoomControl = ZoomCoeff

    Exit Function
Error_Handler:
    MsgBox Err.Description
    Resume Next
End Function

Burada ZoomCoeff değerini 0-2500 arasında değiştirip istediğiniz boyutu elde ediniz.

İyi çalışmalar

 

[merakli_72]

Paylaşımınız için çok teşekkür ederim, oldukça makbule geçti

 

[assenucler]

Hocam, bu güzel kodları arşivime ekledim. Sağ olasınız. Paylaşımınız için teşekkürler.