/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
DataReport
Fra : Ole J. Hansen


Dato : 21-10-02 21:46

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




 
 
csvendsen (25-10-2002)
Kommentar
Fra : csvendsen


Dato : 25-10-02 14:02

"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,

> 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"


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste