Hvordan skrive ut i Visual Basic 6

July 28

Utskrift i Visual Basic kan være litt kronglete å sette opp, men når gjort, detaljene er usynlig for brukeren. En Visual Basic-kontroll som kalles Common Dialog Kontroll har en metode for utskrift i Visual Basic. Ved hjelp av kode som er koblet til denne kontrollen vil åpne en dialogboks der brukeren kan velge spesifikke attributter for utskrift, for eksempel hvilke sider som skal skrives ut, hvor mange kopier og spesifikke egenskaper for skriveren involvert.

Bruksanvisning

1 Lag skriver i dialogboksen ved å åpne Visual Basic og velge "Standard EXE" fra listen over maler tilbys for et nytt prosjekt. Lagre den nye prosjekt som er opprettet med et enkelt navn som "skriver" ved å klikke på "Fil" og "Lagre prosjekt som." Enter "Skriver" i dialogboksen som åpnes. Som standard legger Visual Basic en forlengelse av "VBP." Save the default "Form1" skapt på samme måte, klikke på "Lagre skjema som" og gi form navnet "Skriver" i tillegg.

2 Legg Common Dialog Control for å prosjektet. Klikk på "Project" i menyen øverst på skjermen. Fra rullegardinlisten velger du "Add Components." Bla nedover en meget lang liste som vises til du ser "Microsoft Common Dialog Kontroll 6.0 (SP6). Velg denne med musen og klikk "OK."

3 Dobbeltklikk på Common Dialog kontrollen, som nå skal vises nederst på styre vist i panelet til venstre på skjermen. Et ikon som ser ut som to nuller med en bar over dem og to prikker en under den andre representerer denne kontrollen. Når du kjører musen over dette, ordene "Common" vises.

4 Dobbeltklikk på "Command" -ikonet i venstre panel, representert ved en liten firkant. Dette setter en kommando på skjemaet. Klikk på knappen nå merket "Command1." I "Properties" liste for denne kontrollen til høyre, endre navnet til "cmdPrint". Bla ned til du ser "Caption". Endre navnet på denne til "Print".

5 Type:
Dim Filename, TextLine, BeginPage, EndPage, NumCopies, Orientering, jeg
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientering = CommonDialog1.Orientation
Filename = InputBox ( "Hva filen skal jeg skrive?")
Åpne Filename For Input As # 1
Gjør Mens Not EOF (1)
Linje Input # 1, TextLine
Printer.Print TextLine
Loop
Lukk # 1
Slutt

6 Teste koden ved å trykke "F5" og deretter "Skriv ut" på skjemaet. Skriv inn filplasseringen av en tekstfil på datamaskinen din. Dokumentet skal skrives ut. Hvis den ikke gjør det, gjennom hver linje med kode ovenfor for å sikre at det er nøyaktig.