diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d1c800ec4..64aae4db1 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -16868,7 +16868,18 @@ Partial Class Ventas
             CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
         End If
 
-        ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF")
+        Dim tNombreSugerido As String = "Vista Previa - Factura"
+        Select Case DdlTipoComprobante.SelectedValue
+            Case "Cot"
+                tNombreSugerido = "Vista Previa - Cotización"
+            Case "Egs"
+                tNombreSugerido = "Vista Previa - Egreso"
+            Case "Ant"
+                tNombreSugerido = "Vista Previa - Anticipo"
+        End Select
+        tNombreSugerido = tNombreSugerido & " - " & LblSerie.Text & "-" & TxtFolio.Text
+
+        ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), tNombreSugerido, "PDF")
 
     End Sub
 
@@ -38493,11 +38504,11 @@ Partial Class Ventas
             item.Text = $"&nbsp {item.Text}"
         Next
 
-        If Opcion <> "Cot" Then
-            RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
-        Else
-            TrVentasMedicas2.Visible = False
+        If Opcion = "Cot" Then
+            'TrVentasMedicas2.Visible = False
             TrVentasMedicas3.Visible = False
+        Else
+            RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
         End If
 
     End Sub