Grazie a tutti,
ho risolto in questo modo, non so se è il migliote ma funzionza):
Public Sub btnStampa_Click()
Dim pPrinter As New Printer
Dim sUrl As String
Dim sPdf As String = "/tmp/pagina.pdf"
Try Kill sPdf
If pPrinter.Configure() Then Return
If tabFattura.Index = 0 Then
sUrl = webCompleta.Url
Shell "chromium --headless --disable-gpu --no-sandbox --print-to-pdf=" & sPdf & " '" & sUrl & "'"
While Not Exist(sPdf)
Wait 0.1
Wend
Shell "lp " & sPdf
Endif
End
Buon Anno Nuovo a tutti!
Massimo