title image


Smiley Re: Bericht drucken. Problem mit Standarddrucker
Ja, da hunzt Printout etwas arg.

Naja, dann kann man das in etwa so hier machen:PrintSortReport "DeinReport", 3



Function PrintSortReport(strReportName As String, Copies As Long)

Dim PageCount As Long, oRep As AccessObject, i As Long



DoCmd.OpenReport strReportName, acViewPreview, , , acHidden

For Each oRep In CurrentProject.AllReports

If oRep.Name = strReportName Then

PageCount = oRep.Properties.Application.Reports(strReportName).Pages

Exit For

End If

Next oRep



For i = PageCount To 1 Step -1

DoCmd.PrintOut acPages, i, i, , Copies

Next i

DoCmd.Close acReport, strReportName

End FunctionNicht besonders schön, dafür aber sehr selten... ;o))

'Dranherumfeilen' kannst Du selbst noch...





Gruß Carsten






geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: