Hi ct,
I'm not sure if I understand your problem correctly, but I'll give it a shot. You would like to print every column on a separate paper, and do it all automatically by VBA code. Try this,
Sub printcolumns()
'
For i = 1 To 3 'loop for three sheets
Sheets(i).Select
For j = 1 To 26 'all columns
With Sheets(i)
.Range(.Cells(1, j), .Cells(786, j)).Select
End With
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next j
Next i
'
End Sub
|