Again an probleem 1

[StormVoogd]

hia

This time i want to print when there ar 30 rows filled with data, but while testing he has an error that he has not enough memory

i use this as code to print....

If ActiveSheet.Rows >= 30 Then
Worksheet.Print
End if

What am i doing wrong
B-(

 

[DarkSun]

Try something like this:

Dim tbl As Range
ActiveSheet.Range("A1&quot.Select
Set tbl = ActiveCell.CurrentRegion

If tbl.Rows.Count >= 30 Then
ActiveSheet.PageSetup.PrintArea = tbl.Address
ActiveSheet.PrintOut
End If

 

[StormVoogd]

thanks

i just made another problem

i've put the printoption in a loop

and mij programs are crashed....

fun

Grtz...