Sub DEFINIRFC()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'REPORTESESP.Hide
'Call IRAFACTURAC
'Establecer area de imprecion RESUMEN KARDEX
    'Application.PrintCommunication = False
   ' With Sheets("BASE").PageSetup
        '.PrintTitleRows = "$1:$1"
   ' End With
    Application.PrintCommunication = True
    Sheets("COMPRA").PageSetup.PrintArea = "$A$1:$F$22"
Application.Calculation = xlCalculationAutomatic
    
End Sub
Sub Imprimirfc()
' imprimir Macro
On Error Resume Next
Sheets("COMPRA").Activate
    ActiveSheet.PrintPreview
End Sub

Sub limpiezafc()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Range("F4,C6").Value = ""
ActiveSheet.Range("A10:B17,E10:E17").Value = ""
ActiveSheet.Range("F4").Select
Application.Calculation = xlCalculationAutomatic
End Sub