MULTIPLE PRINTING BUTTONS IN ONE WORKSHEET

[ELVING]

Hi Guys,

im triyng to make 2 difrent printing buttons 1 for pdf printing and 1 for physical paper print, i make 2 macros for each individual button but exel only prints depending on the printer i have selected on the file/Print. no matter what i do i dont seem to find a way to make the macros work individualy on each button. can somebody tell me if theres a way to make this work

 

[Logit]

Option Explicit

Sub Export_Worksheet_to_PDF()

    Dim mypath As String, fname As String
    mypath = ThisWorkbook.Path
    fname = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
    ActiveSheet.Range("A1:R406").ExportAsFixedFormat 0, mypath & "\" & fname
    '           ^^^^^^^^^^^^^^^^
    '           ^^^^^^^^^^^^^^^^
    ' Change the above range to cover the INVOICE RANGE only.
    ' If the upper left corner of the invoice is located in cell A1 and the lower right hand
    ' corner is located in cell J23, then edit Range("A1:R406") to Range("A1:J23")
    'Saves the invoice as a PDF in the same folder as this workbook.

End Sub

Sub PrintInvoice()

Dim Cancel As Boolean
Dim Mensaje, Resp
Dim dlgPrint As Boolean
        
        Application.EnableEvents = False
        [L8] = [L8] + 1
        dlgPrint = Application.Dialogs(xlDialogPrint).Show
            If dlgPrint = False Then
                [L8] = [L8] - 1
                Cancel = True
                Application.EnableEvents = True
                Exit Sub
            End If
            

Application.EnableEvents = True

End Sub

Download workbook : https://drive.internxt.com/sh/file/40b475e4-c857-43e9-85fe-3ff9e94fda55/cd70bc7e37568f457830816b40247ffab4685e5f975066d6d5bcf9552fc7bc71