Stampa con versione 2.99

[aulin]

Ho provato a stampare con questa versione ma mi sono subito stoppato. L'istruzione :

Codice: [Seleziona]

public stampante as new printer

stampante.configure     ' per scegliere la stampante
stampante.name           ' il nome è corretto
Paint.Begin(stampante)                                       

mi evidenzia l'errore : printer is not printing.
Qualcuno ne sa qualcosa ?

[fsurfing]

anche io ho avuto lo stesso problema , sembrerebbe che non sia ancora implementato l' oggetto printer... anche nella guida in linea manca l' argomento..

[milio]

Ho avuto anche io quel tipo di problema... finché ho trovato la soluzione

Se guardi nella toolbox di gambas nella sezione Special, vedrai che si puo' utilizzare l'oggetto Printer.
Allora al quel inserendolo nel form che richiama la stampa, avrai un oggetto Printer1 e...

  Me.Printer1.Configure()
  Me.Printer1.Print()

Poi nell'evento Printer1_Begin() metterai il codice per 'scrivere' sulla stampa.

[md9327]

Bravo Milio, sei la nostra pietra "miliare" per passare alla 3....

Avere l'oggetto Printer come un componente grafico è molto simpatico e utile (come il timer...).

[aulin]

Non ho ancora chiuso la discussione perchè non riesco ancora a far funzionare la stampante.
Sistemao ticamente mi tira fuori un foglio miseramente bianco.
Allego un banale sorgente non funzionante.

Codice: [Seleziona]

Public Sub BTN_Chiudi_Click()
  Me.Close
End

Public Sub Form_Open()
End

Public Sub BTN_Stampa_Click()
Me.Printer1.Configure
 Me.printer1.Print

'  Printer1_Begin()
'  Printer1_Draw()
'  Printer1_End()
  
End

Public Sub Printer1_Begin()
End

Public Sub Printer1_End()
End

Public Sub Printer1_Draw()
Dim Messaggio As String
  Messaggio = "Res: " & Str(printer1.Resolution) & ", Width: " & Str(printer1.PaperWidth) & ", Height: " & Str(printer1.PaperHeight)  
   message.Info(Messaggio)                        
  Paint.Font.Name = "Sans"
  Paint.Font.Size = 90
  Paint.Font.Bold = True
  Paint.MoveTo(10, 135)
  Paint.Text("Hello kdjgh gkjh kghdf kgjh kgh kjgh kjh kh k kh khkh")
Paint.End
End

[vuott]

Io sono riuscito a stampare con Printer nel modo che puoi vedere qui:

http://www.gambas-it.org/smf/index.php?topic=1553.msg21799#msg21799

[andy60]

Buongiorno, io con G3 la stampa la risolvo utilizzando il componente pdfreport, dato che le stampe di cui faccio uso sono sempre dello stesso tipo, prelevano dati da tabbelle sqlite. Cmq buono a sapersi che esiste un oggetto printer.

[andy60]

Non ho ancora chiuso la discussione perchè non riesco ancora a far funzionare la stampante.
Sistemao ticamente mi tira fuori un foglio miseramente bianco.
Allego un banale sorgente non funzionante.

Codice: [Seleziona]

Public Sub BTN_Chiudi_Click()
  Me.Close
End

Public Sub Form_Open()
End

Public Sub BTN_Stampa_Click()
Me.Printer1.Configure
 Me.printer1.Print

'  Printer1_Begin()
'  Printer1_Draw()
'  Printer1_End()
  
End

Public Sub Printer1_Begin()
End

Public Sub Printer1_End()
End

Public Sub Printer1_Draw()
Dim Messaggio As String
  Messaggio = "Res: " & Str(printer1.Resolution) & ", Width: " & Str(printer1.PaperWidth) & ", Height: " & Str(printer1.PaperHeight)  
   message.Info(Messaggio)                        
  Paint.Font.Name = "Sans"
  Paint.Font.Size = 90
  Paint.Font.Bold = True
  Paint.MoveTo(10, 135)
  Paint.Text("Hello kdjgh gkjh kghdf kgjh kgh kjgh kjh kh k kh khkh")
Paint.End
End

hai risolto?

[vuott]

Non ho ancora chiuso la discussione perchè non riesco ancora a far funzionare la stampante.
Sistematicamente mi tira fuori un foglio miseramente bianco.
Allego un banale sorgente non funzionante.

Codice: [Seleziona]

Public Sub BTN_Stampa_Click()
Me.Printer1.Configure
 Me.printer1.Print
End

Public Sub Printer1_Draw()
Dim Messaggio As String
  Messaggio = "Res: " & Str(printer1.Resolution) & ", Width: " & Str(printer1.PaperWidth) & ", Height: " & Str(printer1.PaperHeight)  
   message.Info(Messaggio)                        
  Paint.Font.Name = "Sans"
  Paint.Font.Size = 90
  Paint.Font.Bold = True
  Paint.MoveTo(10, 135)
  Paint.Text("Hello kdjgh gkjh kghdf kgjh kgh kjgh kjh kh k kh khkh")
Paint.End
End

hai risolto?

Secondo me deve:
* eliminare il riferimento a Me. nella prima routine (a me dà errore se lo lascio lì);
* cambiare Paint.Text("......") in Paint.DrawText(".......")

In vero, può anche lasciare Paint.Text, ma in questo caso deve porre dopo di esso il comando Paint.Fill  .
Anche l'uso di Paint.RichText è possibile, ma - come nel caso di Paint.Text - si deve porre dopo di esso il comando Paint.Fill  .

Così modificato in uno dei due modi, a me il codice di aulin stampa perfettamente.