Sementara bisa dengan cara berikut:
Atur fontsize text box yang mewakili field nama pada saat event open report,
gunakan openargs parameter yang dikirim melalui perintah openreport.
Jadi, misalkan perintah untuk open reportnya seperti ini:
docmd.OpenReport ReportName:="Report1", view:=acViewPreview, OpenArgs:="32"
Sementara nilai 32 ini yang merupakan font size akan dipergunakan dalam event
open report:
Private Sub Report_Open(Cancel As Integer)
Dim i As Integer
If IsNull(Me.OpenArgs) Then
i = 12
Else
i = Me.OpenArgs
End If
Me.Nama.FontSize = i
End Sub
Nilai "32" bisa anda ganti dengan mengecek jumlah record yang dikirim ke
report, terserah anda bagaimana caranya, salah satunya dengan menghitung jumlah
record dengan dcount untuk query report.
ukuranFont = 32 - NZ(dcount("nama","qs_Report1"),0) * 2
docmd.OpenReport ReportName:="Report1", view:=acViewPreview,
OpenArgs:=ukuranFont
aksan kurdin
--- In [email protected], AN <anang80...@...> wrote:
>
> dear all
>
> saya punya masalah baru, begini
> di lembar SPT (surat Perintah Kerja) adakalanya report harus menyesuaikan
> peraturan yang ada dikantor, harus dibuat dalam 1 halaman ukuran FOLIO,
> walaupun banyak orang yang bertugas.... bagaimana ya supaya tulisan atau FONT
> SIZE yang di report menyesuaian besar kecilnya jumlah orang yang bertugas:
>
> misal yang bertugas 15 orang otomatis menyesuaikan font size mengecil tetap
> dalam ukuran 1 lembar FOLIO
>
> misal yang bertugas 5 orang otomatis menyesuaikan font size membesar tetap
> dalam ukuran 1 lembar FOLIO
>
> mohon bantuan salam bertautan ....
>
