AccessTr.neT

Hayırlı günler

Dim myreport aş string

Myreport =currentproject.path & "\ Raporlar\Tutanak.pdf"

Docmd.Outputto acoutputreport, "Tutanak", "Performans (*.pdf)", motorsport, true, "",0

Komutu ile tutanağı PDF olarak açtırıyorum Ama benim istediğim tutanak çok fazla sayfalı olduğu zaman ilk sayfasını göstersin ve ilk sayfasını yazdırayım
Şimdiden ilgili için çok teşekkür ediyorum.

kodunu deneyin.

(17/01/2023, 12:02)atoykan yazdı: [ -> ]

Kod:

DoCmd.SelectObject acReport, RAPORADI
DoCmd.PrintOut acPages, 1, 1

kodunu deneyin.

Olmadı hocam rapor açıyor ama rapor önemli değil yazdır dedigimde 1. Sayfayı yazdirirsa çok iyi olacaktı.

DoCmd.OpenReport "RAPORADI", acViewPreview

DoCmd.SelectObject acReport, "RAPORADI"

DoCmd.PrintOut acPages, 1, 1

DoCmd.Close acReport, "RAPORADI"

Yukarıdaki kod raporu açar, object olarak seçer 1. sayfasını yazdırır ve raporu kapatır. Biraz araştırma yapmaktan veya mantığı anlamaya çalışmaktan imtina etmeyin sürekli doğrudan işinizi görecek cevaba odaklanıyorsunuz. Sürekli belirtiyoruz bizim işimiz sizin yerinize yapmak değil yol göstermek. Zaman zaman örneklerin içinde uygulayarak paylaşıyoruz çözümleri ancak bu ya zamansızlıktan soru cevapsız kalmasın diye veya soru sahibinin gerçek anlmada efor sarfedip ilerleyemediği durumlarda. Bu işe hevesliyseniz paylaşılan bilgi ve örnekleri incelerken mantığını kavramaya ve/veya başka varyasyonlar ve başka senaryolarda uygulamaya çalışarak kendinizi geliştirin. Bizim verdiğimiz odlarla bir yere kadar yol alırsınız.

Teşekkür ederim hocam bir daha olmaz