Stampare un file con le funzioni del API di cups

Da Gambas-it.org - Wikipedia.
Versione del 10 nov 2013 alle 10:31 di Vuott (Discussione | contributi) (Creata pagina con 'Per stampare un file con le funzioni esterne del API di ''Cups'', e dunque senza l'uso del componente ''gb.printer'', bisognerà richiamare l'attuale libreria esterna: ''libcu...')

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

Per stampare un file con le funzioni esterne del API di Cups, e dunque senza l'uso del componente gb.printer, bisognerà richiamare l'attuale libreria esterna: libcups.so.2 .


Mostriamo di seguito un semplice e breve codice per stampare un file:

Public Struct Cups_option_s     ' Opzioni di stampa
  name As String                ' Nome dell'opzione
  value As String	        ' Valore dell'opzione
End Struct

Library "libcups:2"

' int cupsPrintFiles(const char *name, int num_files, const char **files, const char *title, int num_options, cups_option_t *options)
Private Extern cupsPrintFiles(name As String, num_files As Integer, files As String[], title As String, num_options As Integer, options As Cups_option_s) As Integer


Public Sub Main()

 Dim $file As New String[10]


  $file[0] = "percorso/del/file/da/stampare/"


' Nel primo argomento va inserito il nome della stampante che dovrà stampare il file.
' Tale nome è uguale a quello del file .ppd afferente alla stampante,
' presente nella cartella "/etc/cups/ppd" e privo della sua estensione:
  err = cupsPrintFiles("nome-della-stampante", 1, $file, $file[0], 0, Null)
  if err = 0 then Error.Raise("Stampa del file fallita !")

End