Select Case strTargetMode
Case Is = ""
DoCmd.OpenReport strTarget, acViewPreview, , , acWindowNormal
Call loggün(strTarget)
Case Else
intModes = Split(strTargetMode, ",")
DoCmd.OpenReport strTarget, intModes(1), , , intModes(3), strArguments
Call loggün(strTarget)
End Select
bütün olayın döndüğü yer burası intModes(1) in içeriğinde. menüyü kim yaptı ise o daha rahat çözer. ama direk yazdırma yapmıyor iseniz.
intModes(1) yerine acViewPreview yazmanız yeterlidir.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Bilgisayar Programcısı (1989'dan beri)

