Print No. off page from cell.

[KlausW]

Hi, I use this VBA code to print a sheet with but it does not work. Now I want Excel to print the number of pages (A4) that are in cell E1.
All help will be appreciated.
Regards Klaus W

Sub Lukaf_Rektangelafrundedehjørner1_Klik()

Dim intRaekke As Integer

Dim SidsteSide As Integer

SidsteSide = Sheets(intRaekke).Range("E1")

Sheets(intRaekke).PrintOut From:=1, To:=SidsteSide

End If

Next

End Sub

 

[JLGWhiz]

@KlausW - Here is an explanation that might help to determine exactly what you want:
1. We refer to sheets as worksheets in the workbook.
2. One sheet can contain many pages of data when sent to print.
3. If you say you want to print 5 sheets, then to us it would mean 5 worksheets which could be from 5 to 500 printed pages of 1 copy per page.
4. If you say you want to print 5 pages then then that would mean the first five print areas from 1 worksheet at 1 copy per page.
5. If you say you want to print 5 copies of a sheet, then that would mean to print as many pages as the sheet contains at 5 copies per page.
Hopefully, this will help you to be more specific about what you want as a printed product.
Specify how many worksheets you expect to queue into the printer.
Specify how many pages you expect (From and To) from each sheet.
Specify how many copies you expect of each printed page.

 

[KlausW]

Hi JLGWhiz, thanks for the help with the explanation, it's my big challenge to explain what it really is Excel should do, I can well see it for myself. But to tell others that I have a little difficulty with.
Best regards
Klaus W