Print Macro or VB code

[telcotech]

I have a rather large spreadsheet that I am having troublr printing, I would like to setup a print button that would allow you to enter the start and end dates and the output would be only those columns and the left 4 columns.

Or something that would allow you to hide all columns except the columns that are in the print range.

The spreadsheet has all 365 days as columns.

Example is attached,

Thanks for all the help.

[Palmetto]

See if the attached is what you have in mind. This code is assigned to a button on sheet one. It will hide columns, set the print area and print out, then show all columns and clear the print area.

Option Explicit

Sub Print_By_Date_Range()

    Dim c As Range, strStart As String, strEnd As String, lcol As Long, lrow As Long
    
    strStart = Sheet1.Range("D6").Value
    strEnd = Sheet1.Range("F6").Value
    lcol = Sheet1.Cells(7, Columns.Count).End(xlToLeft).Column
    lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

    Application.ScreenUpdating = False
    
    If strStart = vbNullString Or strEnd = vbNullString Then
        MsgBox "Please enter both a start and end date", vbExclamation
        Exit Sub
    End If
    
    On Error Resume Next
    
    For Each c In Range("D7", Cells(7, lcol))
        If c.Value >= strStart And c.Value <= strEnd Then c.EntireColumn.Hidden = True
    Next c
    
    With Sheet1
        .PageSetup.PrintArea = .Range("A7", Cells(lrow, lcol)).Address
        .PrintPreview
        .Columns.Hidden = False
        .PageSetup.PrintArea = ""
    End With
    
    Application.ScreenUpdating = True
    
End Sub