title image


Smiley besser, kürzer
Function PrintSortReport(strReportName As String, Copies As Long)

Dim i As Long, lngPages As Long

DoCmd.OpenReport strReportName, acViewPreview, , , acHidden

lngPages = Application.Reports(strReportName).Pages

For i = lngPages To 1 Step -1

DoCmd.PrintOut acPages, i, i, , Copies

Next i

DoCmd.Close acReport, strReportName

End FunctionGruß Carsten






geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: