Søg
Avatar billede hiks Nybegynder
07. april 2003 - 20:22 Der er 3 kommentarer og
1 løsning

Printer.Print

Hej eksperter...

Lige et hurtigt et...

Jeg er ved at lave en print funktion og vil muligvis gerne bruge printer: (ved ikke helt om det er optimalt endnu)

  Printer.CurrentX = 2.5
  Printer.CurrentY = pos + 0.7
  Printer.Print "Beløb inkl. moms: "
 
  Printer.CurrentX = 6.5
  Printer.CurrentY = pos + 0.7
  Printer.Print "kr. " & Total
 
  Printer.CurrentX = 2.5
  Printer.CurrentY = pos + 1
  Printer.Print "Beløb ekskl. moms: "
 
  Printer.CurrentX = 6.5
  Printer.CurrentY = pos + 1
  Printer.Print "kr. " & Total * 0.8

Problemet er at talene skal højre stilles nogle af tilfældene - hvordan gør man det snedigst???

mvh Hiks
Avatar billede hiks Nybegynder
07. april 2003 - 20:23 #1
Jeg har også en hel række andre tal som skal højrestilles - dog ikke inkl. moms og ekskl. moms!

mvh Hiks
Avatar billede joern Nybegynder
07. april 2003 - 20:56 #2
Hej.

Jeg har tidligere selv søgt i Books Online og endte med at sætte spaces foran.

Du kender vel anvendelsen af tab?

  printer.Print ""
  printer.FontName = "Vagabond"
  printer.FontSize = 20
  printer.FontBold = 1
  'printer.Print Tab(21); "Joka' Handel & Udlejning    tlf. 55 45 96 78"
  printer.Print Tab(24); "Firmaet JKF-demo      tlf. 55 81 18 28"
  printer.FontName = "Times New Roman"
  printer.FontSize = 16
  printer.Print Tab(25); "Prisliste for udvalgte varegrupper"
  printer.FontSize = 12
  printer.Print Tab(30); "Udskrevet d. " & Left$(Now, 5) & "-" & Year(Now) & Space(80) & "Side  " & sidetal
  printer.Print Tab(25); "___________________________________________________________________________"


For at højrestille:

printer.print tab(40); Right(space(20) & "kr. " & Total * 0.8, 15)

Jeg sætter 20 blanktegn foran udtrykket og anvender de 15 fra højre.

M.v.h.  Jørn
Avatar billede venne Nybegynder
08. april 2003 - 09:09 #3
Du kan jo bruge Printer.TextWidth til at beregne hvor bred teksten er (altså det, der skal højrestilles) og så bruge det i en beregning af CurrentX.

/venne
Avatar billede hiks Nybegynder
08. april 2003 - 09:39 #4
Den køber jeg lige for 30 p. den idé, dér!!!

Takker for hjælpen...

/hiks
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 22:58 Kan man undgå at få vist referer når der klikkes på links Af Strawberry i Browsere
I går 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
15/0811:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
White papers
Flere white papers »