VBA MACRO Paste table to Print

[THEVULGRIM]

Hey guys its me again bothering you all


So trying to figure out some stuff, so far being great actually. So got a bit stuck haha


The thing got stuck was making the code only work if something is being filtered, if not is being filtered the code does nothing. And having few issue when the table is pasted printing is not printing the table correctly.

the table to be printed is sheet "TESTPASTE"

Private Sub TEST1()

Dim rng1 As Range, rng2 As Range, rngMERGE1 As Range, rngMERGE2 As Range, rngMERGE3 As Range
Dim ques As String, Text1 As String, Text2 As String, Text3 As String


Text1 = "HEADER1"
Text2 = "HEADER2 " & Format(Date + 1, "dd/MM")
Text3 = "HEADER3"


Set rngMERGE1 = REC_TEST.Range("B1:E1")
Set rngMERGE2 = REC_TEST.Range("B2:J2")
Set rngMERGE3 = REC_TEST.Range("K2:O2")

Set rng1 = REC123.Range("B4:O" & REC123.Range("B" & Rows.Count).End(xlUp).Row)
Set rng2 = REC_TEST.Range("B3:O" & REC_TEST.Range("B" & Rows.Count).End(xlUp).Row)

REC_TEST.Cells.Clear


With rngMERGE1
    .Merge
    .Value = Text1
    .Font.Bold = True
    .Font.Name = "Calibri"
    .Font.Size = 15
    .WrapText = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Interior.ColorIndex = 35
    .BorderAround , LineStyle:=xlContinuous, Weight:=xlThick
End With

With rngMERGE2
    .Merge
    .Value = Text2
    .Font.Bold = True
    .Font.Name = "Calibri"
    .Font.Size = 13
    .WrapText = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Interior.ColorIndex = 40
    .BorderAround , LineStyle:=xlContinuous, Weight:=xlThick
End With

With rngMERGE3
    .Merge
    .Value = Text3
    .Font.Bold = True
    .Font.Name = "Calibri"
    .Font.Size = 13
    .WrapText = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Interior.ColorIndex = 50
    .BorderAround , LineStyle:=xlContinuous, Weight:=xlThick
End With


    ques = InputBox("pick your date? (1 today, or 2 tomorrow)", "test", "1")
    If ques = "1" Then
        rng1.AutoFilter 1, Criteria1:="TRUE", Operator:=xlFilterValues
        rng1.AutoFilter 2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
        rng2.AutoFilter 6, Criteria1:="TRUE2", Operator:=xlFilterValues
        rng1.SpecialCells(xlCellTypeVisible).Copy Destination:=rng2
    ElseIf ques = "2" Then
        rng1.AutoFilter 1, Criteria1:="TRUE", Operator:=xlFilterValues
        rng1.AutoFilter 2, Criteria1:=xlFilterTomorrow, Operator:=xlFilterDynamic
        rng2.AutoFilter 6, Criteria1:="TRUE2", Operator:=xlFilterValues
        rng1.SpecialCells(xlCellTypeVisible).Copy Destination:=rng2
    Else
        MsgBox "."
        Exit Sub
    End If
    

REC_TEST.UsedRange.EntireRow.EntireColumn.AutoFit


rng1.AutoFilter 2
rng2.AutoFilter 5
End Sub

Test file added.