HELP.... Re http://www.mrexcel.com/tip081.shtml

[astaga]

Hi,
I am having no progress trying to get the vertical spacing aligned correctly to the labels I have.
Have spent the last 4 to 5 hours trying all possibilities but am not able to get it.
When I do get it right for page 1, pages 2, 3, 4 etc... are off.
Any help appreciated.

FYI, my labels are: Avery 3 by 10 layout
Label Size is 2.5 inch long by 1 inch high
Distance from Label Top to Top of Page is 0.9 inch

Here is relevant code from the web reference above
:
' Set up row heights
If NextCol = 1 Then
WSL.Cells(NextRow, 1).Resize(4, 1).RowHeight = 16
WSL.Cells(NextRow + 4, 1).RowHeight = 13.25
End If

The above numbers get the ten rows of labels set out correctly, except that they all print onto my page with the first line outside the label area ie. I lose the first line. If I use the print margin settings to adjust page 1 ok, subsequent pages are all off. Please help.........

 

[Smitty]

Welcome to the Board!

Why not mail merge to Word and use the Label Wizard? It's got pre-defined templates for most Avery labels. (No point in trying to recreate the wheel).

Smitty

 

[astaga]

The reason is precisely as stated in the document.
Wow - 23 steps, so I am trying to do it in VBA as a one button click process. (You know how users are, just give them a simple approach and there's less chance of errors!)

astaga

 

[astaga]

I have another question which I hope someone here can help.

How do I "insert" blank vertical spaces onto the top of the page so all the labels are pushed down 0.3".
This should "fix" it...

Any help please....

 

[astaga]

Excel VBA for top & bottom margins?

I managed to fix the problem described earlier via the margin settings...
Had to set bottom margin to 0.

BTW, is it possible to set these parameters for a page
ie. Top, Bottom, Right and Left margins in the VBA code?
How would this be done?

Thanks.

 

[Smitty]

/quote]is it possible to set these parameters for a page
ie. Top, Bottom, Right and Left margins in the VBA code?
How would this be done? [/quote]

Sure:

<font face=Tahoma>    <SPAN style="color:#00007F">With</SPAN> ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.5)
        .RightMargin = Application.InchesToPoints(0.5)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Smitty