--Descarga directa de etiquetas

Ventas/ProductosServicios.aspx.vb

@@ -3615,7 +3615,17 @@ Partial Class ProductosyServicios
             End If
             Dim params As New List(Of ReportParameter)
 
-            ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios")
+            Dim lrds As New List(Of ReportDataSource)
+            Dim rds As New ReportDataSource
+            rds.Name = "Datos"
+            rds.Value = DtPrecios
+            lrds.Add(rds)
+
+            Dim bytesPDF = StreamBytesStimul("Facturas", DirectorioArchivo, lrds, params, NombreArchivo:="Precios", Formato:="PDF")
+            Dim pdf64 = Convert.ToBase64String(bytesPDF)
+
+            RegistraScript($"impresionBase64('{pdf64}');", "Imprimir")
+            'ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios")
         End If
 
     End Sub