Vamos a ver creo un formulario con el control WebView y arrastro el control especial de impresora y dos botones uno para imprimir y otro para convertir a pdf.
Codigo:
Public Sub Form_Open()
WebSettings[WebSettings.PluginsEnabled] = True
WebSettings[WebSettings.JavascriptEnabled] = True
WebSettings[WebSettings.JavaEnabled] = True
WebView1.Url = rutadoc & ".html" 'rutadoc es la ruta más el nombre de archivo sin extensión
End
Public Sub Button1_Click()
If Printer1.Configure() Then Return
Inc Application.Busy
WebView1.Current.Print(Printer1)
Dec Application.Busy
End
Public Sub Button2_Click()
Dim test As String
Printer1.OutputFile = rutadoc & ".pdf"
WebView1.Current.Print(Printer1) 'Configurar impresoras Gambas3
Shell "which okular" To test
If test Then
Shell "okular " & Var.rutadoc & ".pdf"
Else
Shell "which evince" To test
If test Then
Shell "evince " & Var.rutadoc & ".pdf"
Else
Message.Info(("Para mirar la factura hay que tener instalado Okular o Evince"), ("Ok"))
Endif
Endif
End
WebSettings[WebSettings.PluginsEnabled] = True
WebSettings[WebSettings.JavascriptEnabled] = True
WebSettings[WebSettings.JavaEnabled] = True
WebView1.Url = rutadoc & ".html" 'rutadoc es la ruta más el nombre de archivo sin extensión
End
Public Sub Button1_Click()
If Printer1.Configure() Then Return
Inc Application.Busy
WebView1.Current.Print(Printer1)
Dec Application.Busy
End
Public Sub Button2_Click()
Dim test As String
Printer1.OutputFile = rutadoc & ".pdf"
WebView1.Current.Print(Printer1) 'Configurar impresoras Gambas3
Shell "which okular" To test
If test Then
Shell "okular " & Var.rutadoc & ".pdf"
Else
Shell "which evince" To test
If test Then
Shell "evince " & Var.rutadoc & ".pdf"
Else
Message.Info(("Para mirar la factura hay que tener instalado Okular o Evince"), ("Ok"))
Endif
Endif
End