Print Scrollbars Property Of All Forms

[Steve]

How could I printout (hardcopy) a list of all the forms in a database with
each form's scrollbars property ?

Thanks!

Steve

 

[Marshall Barton]

How could I printout (hardcopy) a list of all the forms in a database with
each form's scrollbars property ?

Dim db Database
Dim doc As Document

Set db = CurrentDb()
For Each doc in db.Containers!Forms.Documents
DoCmd.OpenForm doc.Name, acDesign
With Forms(doc.Name)
Debug.Print .Name, .Scrollbars
End With
DoCmd.Close acForm, doc.Name, acSaveNo
Next doc

Aet db = Nothing

 

[Steve]

Marshall,

Thank you for your response!

I haven't tried it yet but Debug.Print prints to the immediate window. I was
hoping to create a list of the forms and each form's scrollbars property and
then print it out on my printer. Can that be done?

Thanks,

Steve

 

[Marshall Barton]

Then use the Print stqatement with something like:

Dim FN As Variant
FN = FreeFile
Open "Lpt1:" For Output As FN
For Each ...
...
Print .Name, .Scrollbars
...
Next ...
Close FN
...

Depending on your computer's configuration, you may not be
able to use Lpt1. If that's a problem, I suggest that you
use the path to a temporary file instead. Then use
MyComputer to select and print the file.

 

[Steve]

Thanks, Marshall!

Steve

Then use the Print stqatement with something like:

Dim FN As Variant
FN = FreeFile
Open "Lpt1:" For Output As FN
For Each ...
...
Print .Name, .Scrollbars
...
Next ...
Close FN
...

Depending on your computer's configuration, you may not be
able to use Lpt1. If that's a problem, I suggest that you
use the path to a temporary file instead. Then use
MyComputer to select and print the file.
--
Marsh
MVP [MS Access]

I haven't tried it yet but Debug.Print prints to the immediate window. I
was
hoping to create a list of the forms and each form's scrollbars property
and
then print it out on my printer.


"Marshall Barton" wrote

 

[John... Visio MVP]

Your welcome. ;-)

John...