|
|
 | Printer.Print
Fra : Kim Roth |
Dato : 07-11-01 17:40 |
|
Hej NG
Jeg har et problem med at få mit tekst printet ud, jeg kan ikke få den til
at skrive på et bestemt punkt på siden, jeg har prøvet med Printer.CurrentX
og Printer.CurrentY, men den bliver ved med at printe ud fra øverste venstre
hjørne, og på linien nedenunder, er der en som har et forslag, det skulle
være som f.eks
______________________________________________
|Tekst1 Tekst2
|
|
|
|Tekst3 Tekst4
|
|
|
|Tekst5
Tekst6 |
|
|
|
|
|
|
|_____________________________________________ |
Hilsen Kim Roth
| |
 Peter Rasmussen (08-11-2001)
| Kommentar
Fra : Peter Rasmussen |
Dato : 08-11-01 12:01 |
|
Du får da aldrig ro med alle de problemer :)
Lidt at kikke på
Function PrintFormular()
Printer.Orientation = vbPRORPortrait
Printer.PaperSize = vbPRPSA4
Printer.CurrentX = 300
Printer.CurrentY = 100
Printer.FontSize = 14 ' Set FontSize.
Printer.Print "Vaskeri. (via web)" ' Print large type.
Printer.FontSize = 12 ' Set FontSize.
Printer.CurrentX = 300
Printer.CurrentY = 500
Printer.Print "Afd:"
Printer.CurrentX = 300
Printer.CurrentY = 800
Printer.Print "Leveringsdato: "
Printer.FontUnderline = True
Printer.CurrentX = 2100
Printer.CurrentY = 500
Printer.Print AfdelingNavn
Printer.CurrentX = 2100
Printer.CurrentY = 800
Printer.Print Leveringsdato
Printer.CurrentX = 300
Printer.CurrentY = 15300
Printer.Print "Rekvireret af : " & FuldeNavn
Printer.FontUnderline = False
Printer.PaintPicture MSFlexGrid1.Picture, 500, 1300, 5200, 13800
Printer.CurrentY = 400
Printer.DrawWidth = 5
Printer.Line (500, 1300)-(500, 15100)
Printer.Line (500, 1300)-(5680, 1300)
Printer.EndDoc
End Function
"Kim Roth" <kim-roth@privat.dk> wrote in message
news:3be96389$0$2002$edfadb0f@dspool01.news.tele.dk...
> Hej NG
> Jeg har et problem med at få mit tekst printet ud, jeg kan ikke få den til
> at skrive på et bestemt punkt på siden, jeg har prøvet med
Printer.CurrentX
> og Printer.CurrentY, men den bliver ved med at printe ud fra øverste
venstre
> hjørne, og på linien nedenunder, er der en som har et forslag, det skulle
> være som f.eks
> ______________________________________________
> |Tekst1 Tekst2
> |
> |
> |
> |Tekst3 Tekst4
> |
> |
> |
> |Tekst5
> Tekst6 |
> |
> |
> |
> |
> |
> |
> |_____________________________________________ |
>
> Hilsen Kim Roth
>
>
| |
|
|