
Sub DEFINIRFV()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'REPORTESESP.Hide
'Call IRAFACTURAV
'Establecer area de imprecion RESUMEN KARDEX
    'Application.PrintCommunication = False
   ' With Sheets("BASE").PageSetup
        '.PrintTitleRows = "$1:$1"
   ' End With
    Application.PrintCommunication = True
    Sheets("VENTA").PageSetup.PrintArea = "$A$1:$F$23"
Application.Calculation = xlCalculationAutomatic
    
End Sub

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

Sub Imprimirfv()
' imprimir Macro
    On Error Resume Next
Sheets("VENTA").Activate
    ActiveSheet.PrintPreview
End Sub