Printer.print e ritorno a capo..

[Brunchio]

Ciao a tutti! Utilizzo il metodo printer per stampare il risultato di una query, ho impostato correttamente i valori x e y per la stampa ottenendo l'output desiderato. tutto viene formattato correttamente ma se una stringa è troppo lunga viene stampata fino alla fine del foglio e viene troncata. Vorrei andasse a capo.. Come procedere?

Grazie

[totti240282]

come posso stampare le immagini con il comando print ????????'

[Brunchio]

Per le immagini non so che dirti..


Nessuno mi da una mano per il ritorno a capo?

[Brunchio]

Ritento per l'ultima volta..


Up..

[totti240282]

ma tu vuoi che lo faccia in automatico o potresti farlo anche te

[gabcaly]

Ecco la soluzione !!!
E' ovvio che l'output è a video. Ti basta modificare il codice nelle riche che contengono Print con Printer.Print

 
  Dim Stringa, Parole, i, Frase1, Frase2
  Stringa = "Ei fu siccome immobile dato il mortal sospiro " & _
            "stette la spoglia immemore orba di tanto spiro"
  Parole = Split(Stringa)
  Frase1 = ""
  Frase2 = ""
  For i = LBound(Parole) To UBound(Parole)
    Frase1 = Frase1 & " " & Parole(i)
    If TextWidth(Frase1) < ScaleWidth Then
      Frase2 = Frase1
    Else
      Print LTrim(Frase2)
      Frase1 = Parole(i)
    End If
  Next
  Print Frase1

[ale500]

per stampare le immagini mi sembra si fa così:

Printer.PaintPicture Picture1.Picture, [X],[Y]

[totti240282]

Disegna il contenuto di un file grafico (.bmp, .wmf, .emf, .cur, .ico o .dib) su un oggetto Form, PictureBox o Printer. Non supportaargomenti predefiniti.

mi sa che non è questa ...........grazie cmq e se vuoi smentirmi magari

[ale500]

per stampare le immagini si fa come ti ho detto io (o per lo meno quello è uno dei metodi) se non ti fidi fai una prova..

nel tuo progetto includi:
-una picture box
-una immagine nella proprietà picture della picture box

all'evento click metti il mio codice e vedi

[totti240282]

Private Sub Command1_Click()
Printer.PaintPicture Picture1.Picture
End Sub
argomento non facoltativo mi dice perche ???????'