Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Drukowanie...
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003
Drukowanie...

...słuchajcie mnie, bowiem nie wiem jak wydrukować coś w kilku oddzielnych kolumnach równoległych do siebie...

examp.

(zawartość Label1)    (zawartość Label2)

|      ALA      |    |    KAZIU      |
|    MAMA ALI    |    |  TATA KAZIA  |
|  BABCIA ALI  |    |  DZIADEK KAZIA |

...w dziale Tipsów byl kiedys (bynajmniej kiedys) artykul o drukowaniu, ale w nim zostalo uzyte przeslanie danych do Windows Notatnika, a przedtem zostalo to zapisane w pliku *.txt.


Ja chce aby zostalo to zapisane do pliku lub pbezposrednio przeslane do notepada, tak aby wygladalo to jak na przykladzie...


jesli ktoś wie\ma artykul to oprócz tego niech przesle mi na mejla dane o funkcjach drukowania\formatujacych text| bezposrednio z VB...


help...

04-05-2003 02:03
Pokaż profil AFRO  Wyślij email do AFRO   
interteh



Typ: neutral
Postów: 22
Zarejestrowany: Mar 2003

Private Sub Form_Load()
RichTextBox1.Font.Name = "Courier New"
Dim zmienna1
Dim zmienna2
Dim zmienna3
Dim zmienna4



zmienna1 = "MAMA"
zmienna2 = "ciocia"
zmienna3 = "Super laska"
zmienna4 = "SEX"

zmienna1 = Left(zmienna1 & "          ", 12)
zmienna2 = Left(zmienna2 & "          ", 12)
zmienna3 = Left(zmienna3 & "          ", 12)
zmienna4 = Left(zmienna4 & "          ", 12)

RichTextBox1.Text = "|" & zmienna1 & "|" & zmienna2 & "|" & Chr(10) & "|" & zmienna3 & "|" & zmienna4 & "|"

'Jeżeli o to chodziło
'ta sztuczka umożliwia tworzenie kolumn w RichTextBoxie
' nie musze dodawac ze na forme trzeba połozyc RichTextBox1

End Sub

05-05-2003 19:43
Pokaż profil interteh  Wyślij email do interteh   Odwiedź stronę interteh       3741353
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Prosta sprawa... na przyklad

'opisu tego poszukaj w instrukcji
Printer.Orientation = 1
Printer.ColorMode = 1
Printer.PrintQuality = 3

'to dla A4
Printer.ScaleLeft = 0
Printer.ScaleTop = 0
Printer.ScaleWidth = 4700
Printer.ScaleHeight = 6600

'ustawienia czcionki
Printer.FontTransparent = True 'przezroczysta
Printer.Font = "Arial"
Printer.Font.Charset = 238 ' kodowanie znakow 238=europa srodkowa, 0=zachodni
Printer.FontSize = 11 'Wielkosc
Printer.FontBold = True 'Gruba
Printer.FontItalic = True 'Pochyla
Printer.FontUnderline = False 'Podkreslona
Printer.ForeColor = 0 'kolor

'z tego dobrze jest zrobic Procedure :

Sub Czcionka_P(Wielkosc As Integer, rodzajFontu As String, Gruba As Boolean, Pochyla As Boolean, Podkreslona As Boolean)

  Printer.FontTransparent = True
  Printer.Font = rodzajFontu
  Printer.Font.Charset = 238 ' kodowanie znakow 238=europa srodkowa, 0=zachodni
  Printer.FontSize = Wielkosc
  Printer.FontBold = Gruba
  Printer.FontItalic = Pochyla
  Printer.FontUnderline = Podkreslona
  Printer.ForeColor = 0
End Sub
'i tylko wywolywac ja


'gdzie drukowac
Printer.CurrentX = 288
Printer.CurrentY = 844

'co drukowac
Printer.Print "WUJEK"     

'najlepiej dane miec w tablicy i poprzez FOR 'drukowac na stronie np:

X=300
Y=200
For a=0 to 10
  Y=Y+250 'ten skok zalezy od uzytej czcionki
  Printer.CurrentX = X
  Printer.CurrentY = Y
  Printer.Print Tablica(a)
Next a

'mozliwosci jest tak wiele ze strach pomyslec...
'mozesz dodac tabelke np.

Printer.DrawWidth = 3
Printer.DrawStyle = 0
Printer.Line (100 , 100 )-(4350 , 100), 3
'itd...


'a na koniec
Printer.EndDoc

05-05-2003 23:05
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1