"Ole J. Hansen" skrev d. 21-10-02 21:46 dette indlæg :
> Hej igen
> Jeg prøver lige igen, jeg tror jeg havde et problem første gang:
>
> Jeg er i færd med at lavet et foreningsmedlemsprogram, og nu har jeg
et
> problem.
>
> Jeg benytter DataEnvironment og DataReport, det går også fint, jeg får
> rapporten ud,
> men jeg har så mange felter, at jeg gerne ville lægge papiret ned.
>
> Jeg ved godt, at jeg kan skrive rptMedlem.Show, da får jeg vist
rapporten,
> og der kan
> jeg trykke på printerikonet og den vej lægge papiret ned, men det er
ikke
> det jeg vil.
>
> Jeg har en knap "Udskriv" og så bliver rapportern lavet og skrives ud,
så
> det jeg
> ønsker er en kodestump der lægger papiret ned inden det udskrives,
rapporten
> skal ikke vises på skærmen.
> Håber på lidt hjælp.
> m.v.h.
> ole
>
Hej Ole
Jeg benytter ikke selv længere VB's datareport, da jeg har haft nogle
problemer med visse rapporter, og har omskrevet dem i Crystal Reports.
Har ikke selv testet om nedenstående virker, men her noget gammelt kode
jeg har fundet, som du kan forsøge med :
If PrintDirekte Then
drReport1.WindowState = vbMinimized
drReport1.Orientation = rptOrientLandscape
drReport.PrintReport False, rptRangeAllPages ' Udskriv uden
preview dialog
'MsgBox "Rapport sendt til printer!", vbInformation
Unload drReport1
Else
drReport1.WindowState = vbMaximized
drReport1.Show vbModal 'Vis rapport på skærm
End If
Hilsen CSvendsen.
>
--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"