[es] - Pomoc oko VB6---Ispis text boxa na odredjni dio lista

vipp

Član broj: 21093
Poruke: 113
*.static.sbb.co.yu.

+2 Profil

Re: Pomoc oko VB6---Ispis text boxa na odredjni dio lista

^{16.08.2007. u 11:16 - pre 203 meseci}

Napravi u WORD-u neki šablon za taj dokument. Tamo gde želiš da ti se ispisuju sadržaji textbox-ova unesi neke reči, a zatim u kodu za ispis teksta u WORD, koristi funkciju za zamenu tih reči stvarnim sadržajem tekstbox-a.

Evo ti deo primera pa probaj malo da se poigraš sa time. Imaš sigurno gotovih kodova na Internetu.

Code:

Option Explicit

Public WordApp As Word.Application 'WORD PROGRAM
Public WordDoc As Word.Document    'WORD FAJL
Public WordRange As Word.Range     'WORD RANG, BITAN ZA...
________________________________________________
Public Sub otvoriDokument(ByVal nazivTemp As String, ByVal nazivDoc As String)
'OTVARA WORD DOKUMENT (TEMPLATE) I CUVA GA PO NOVOM IMENU
'PARAMETRI:
'nazivtemp - naziv template-a, SA PUTANJOM!!!
'nazivDoc - naziv novosacuvanog dokumenta , SA PUTANJOM!!!

Set WordApp = CreateObject("Word.Application")
With WordApp
    .Visible = True
    .Activate
    .WindowState = wdWindowStateMaximize
End With

Set WordDoc = WordApp.Documents.Open(nazivTemp)
WordDoc.SaveAs (nazivDoc)
WordDoc.Close
Set WordDoc = WordApp.Documents.Open(nazivDoc)
With WordApp
   .Visible = True
   .Activate
   .WindowState = wdWindowStateMaximize
End With

_________________________________________
Public Sub zameni(ByVal staritext As String, ByVal novitext As String)
'FUNKCIJA KOJA U WORD DOKUMENTU MENJA NEKI TEKST NOVIM TEKSTOM
'PARAMETRI:
'staritekst - tekst u templateu koji zelimo da zamenimo
'novitext - tekst u templateu koji dolazi na mesto novog teksta
WordApp.ActiveDocument.Content.Find.Execute FindText:=staritext, replacewith:=novitext
End Sub

_____________________________________________

________________________________________________
POZIVI FUNKCIJA ("DANASNJI_DATUM" i "NAZIV_FIRME" su reči iz WORD šablona koje se menjaju podacima Date i Firma)

Call otvoriDokument(TEMPLATE, FAJL)

'ZAMENA STRINGOVA NA ODREDJENIM POZICIJAMA U TEMPLEJTU ODGOVARAJUCIM STVARNIM PODACIMA
Call zameni("DANASNJI_DATUM", Date)
Call zameni("NAZIV_FIRME", firma)

Set WordRange = WordDoc.Sections(1).Range
End Sub

_{edit: dodati code tagovi}

_{[Ovu poruku je menjao Aleksandar Ružičić dana 22.08.2007. u 15:20 GMT+1]}

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
195.252.116.*

+7 Profil

Re: Pomoc oko VB6---Ispis text boxa na odredjni dio lista

^{17.08.2007. u 11:43 - pre 202 meseci}

VB 6 forma ima metodu (func) za stampanje svog sadrzaja.
npr. Form1.Print
Pozdrav

HomePage http://www.eurora3d.com

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Pomoc oko VB6---Ispis text boxa na odredjni dio lista

^{19.08.2007. u 21:29 - pre 202 meseci}

Odgovor je veoma prost. Koristi objekat printer i mozes odstampati na bilo kom papiru, gde hoces i sta hoces i kojim fontom hoces...

Code:

Private Sub Form_Load()

    Printer.PaperSize = vbPRPSA4 'A4
    Printer.Orientation = vbPRORPortrait 'Uspravno


    Printer.Font = "ariel"
    Printer.Font.Bold = True
    Printer.FontSize = 20

    Printer.CurrentX = Text1.Left
    Printer.CurrentY = Text1.Top

    Printer.Print Text1.Text


    Printer.Font = "Tahoma"
    Printer.Font.Bold = False
    Printer.Font.Italic = True
    Printer.FontSize = 30

    Printer.CurrentX = Text2.Left
    Printer.CurrentY = Text2.Top

    Printer.Print Text2.Text

    Printer.Font = "Courier New"
    Printer.Font.Bold = True
    Printer.Font.Italic = True
    Printer.FontSize = 50

    Printer.CurrentX = Text3.Left
    Printer.CurrentY = Text3.Top

    Printer.Print Text3.Text

End Sub

rgdrajko

Prikačeni fajlovi

Proba.JPG - 10.19k

Proba.zip - 7.89k

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: Pomoc oko VB6---Ispis text boxa na odredjni dio lista

^{19.08.2007. u 21:37 - pre 202 meseci}

I na kraju:

Code:

Printer.EndDoc

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
80.93.249.*

+3 Profil

Re: Pomoc oko VB6---Ispis text boxa na odredjni dio lista

^{19.08.2007. u 21:48 - pre 202 meseci}

Citat:

goranvuc: I na kraju:

Code:

Printer.EndDoc

Da i na kraju koda dodati Printer.EndDoc
Hvala Gorane. Pozdrav.

rgdrajko

Odgovor na temu

dejan_m90
Doboj

Član broj: 63585
Poruke: 72

+1 Profil

Re: Pomoc oko VB6---Ispis text boxa na odredjni dio lista

^{20.08.2007. u 08:54 - pre 202 meseci}

Ok,, Hvala na odgovorima. pozzdrav.

Odgovor na temu

goran3230
Goran Stanojevic

Član broj: 148962
Poruke: 4
*.adsl-1.sezampro.yu.

Profil

Re: Pomoc oko VB6---Ispis text boxa na odredjni dio lista

^{26.08.2007. u 14:36 - pre 202 meseci}

Mozda ti nesto od ovoga pomogne...mislim da ti je Listbox bolji za to sto ti treba od TextBox-a...

Code:
Private Sub Command2_Click()
Dim wrd As Word.Application
Dim doc As Word.Document

Set wrd = CreateObject("word.application")

With wrd
.Visible = True
.Application.WindowState = wdWindowStateMaximize
.Options.MeasurementUnit = wdMillimeters
Set doc = .Documents.Add
.Options.MeasurementUnit = wdMillimeters
With doc.Sections(1).PageSetup
.PaperSize = wdPaperA4
.RightMargin = 65
.LeftMargin = 75
.TopMargin = 80
.BottomMargin = 65
.GutterPos = wdGutterPosTop
.Gutter = 8
End With
'broj stranice
With doc.Sections(1).Footers(wdHeaderFooterPrimary)
.Range.Font.Name = "times yu"
.Range.Font.Size = 12
.Range.InsertDateTime
.Range.InsertAfter (" -----------------software by Goran ,2004.----------------- ")
Dim vreme As String
vreme = Time()
.Range.InsertAfter vreme
.Range.Paragraphs.Alignment = wdAlignParagraphCenter
.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight
End With
'masinski fakultet nis
With doc.Sections(1).Headers(wdHeaderFooterPrimary)
.Range.Font.Name = "times yu"
.Range.Font.Size = 12
.Range.Font.Bold = True
.Range.InsertAfter ("**************************************************************************")
.Range.Paragraphs.Alignment = wdAlignParagraphCenter
End With

With wrd.Selection
'ovde unosi'
'*******************************************************************************************************
'*******************************************************************************************************
Dim n As Integer
n = List1.ListCount
i = -1
Do
i = i + 1
List1.ListIndex = i - 1

Label34.Caption = List1.Text
.EndKey
.InsertParagraphAfter
.EndKey
.InsertAfter List1.Text
.EndKey
.InsertParagraphAfter
Loop Until i = n
.InsertParagraphAfter
.EndKey

Label33.Caption = aaa

'*********************************************************************************************************
'*******************************************************************************************************

.Font.Name = "times yu"
.Font.Size = 11
.Text = "-Podaci o optere}enju:"
.InsertParagraphAfter
.EndKey

.InsertAfter aaa
.EndKey
End With

End With

_{EDIT: Dodati code tagovi}

_{[Ovu poruku je menjao Marko_L dana 26.08.2007. u 18:23 GMT+1]}

Odgovor na temu