Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Högerställd text vid utskrift

Postades av 2014-07-07 06:28:39 - Torbjörn Karlberg, i forum vb.net, Tråden har 3 Kommentarer och lästs av 4299 personer

Hej!

Är det någon som vet om det överhuvudtaget går att få högerställd text vid utskrift i vb net/2010 express.

Har letat men kan inte hitta något om detta bara .center och far samt Near men det verkar vara samma som top, center och botten i en ruta.

Jag vill skriva ut summa med decimalen.

/Tobbe


Svara

Sv: Högerställd text vid utskrift

Postades av 2014-07-07 08:39:42 - Tomas Granlund

Finns säkert massor med sätt att lösa det på. Här är ett som använder PrintDocument:

' Form1.vb
	Private Sub PrintIt()
		Dim dialog As New PrintDialog
		If (dialog.ShowDialog = Windows.Forms.DialogResult.OK) Then
			Dim doc As New TestDocument
			doc.PrinterSettings = dialog.PrinterSettings
			doc.Text = "Detta står till höger"
			doc.Print()
		End If
	End Sub

'TestDocument.vb
Imports System.Drawing.Printing

Public Class TestDocument
	Inherits PrintDocument

	Public Sub New()
		MyBase.New()
		Text = String.Empty
		TextFont = New Font("Calibri", 12)
	End Sub

	Public Property Text As String
	Public Property TextFont As Font

	Protected Overrides Sub OnPrintPage(e As PrintPageEventArgs)
		MyBase.OnPrintPage(e)

		Dim format As New StringFormat(StringFormatFlags.NoWrap)
		Dim pagePrintableArea = GetPrintableArea(DefaultPageSettings)

		PrintRight(Text, pagePrintableArea, e.Graphics)
	End Sub

	Private Sub PrintRight(txt As String, printableArea As RectangleF, g As Graphics)
		Dim textSize = g.MeasureString(txt, TextFont, printableArea.Width)
		Dim leftPadding = printableArea.Width - textSize.Width
		Dim textOrigin = New PointF(printableArea.X + leftPadding, printableArea.Y)
		g.DrawString(txt, TextFont, Brushes.Black, textOrigin)
	End Sub

	Private Function GetPrintableArea(settings As PageSettings) As RectangleF
		Dim height = settings.PaperSize.Height - (settings.Margins.Top + settings.Margins.Bottom)
		Dim width = settings.PaperSize.Width - (settings.Margins.Left + settings.Margins.Right)
		Return New RectangleF(settings.Margins.Left, settings.Margins.Top, width, height)
	End Function
End Class


Svara

Sv:Högerställd text vid utskrift

Postades av 2014-07-08 10:46:34 - Torbjörn Karlberg

Hej och tack för svaret.

Jag använder denna kod för att skriva ut .

e.Graphics.DrawString(DataGridView1.Item(5, i).Value, font1, Brushes.Black, 700, 200)

Får inte riktigt till det hur jag ska få in din kod för detta.

Tobbe


Svara

Sv:Högerställd text vid utskrift

Postades av 2014-07-08 11:19:51 - Tomas Granlund

Med DrawString() så styr du positionen inom utskriftsområdet själv (i ditt fall x=700, y=200). Det du behöver göra för en snygg högerjustering är att mäta hur stort plats din text kommer ta (genom att använda en lämplig variant av MeasureString()), och därefter anpassa vilka koordinater du skickar till DrawString().


Svara

Nyligen

  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak
  • 16:14 Vem anlitar man egentligen när tak
  • 16:13 Vem anlitar man egentligen när tak
  • 11:52 Noen erfaring med uttak hos Mostbe
  • 11:51 Noen erfaring med uttak hos Mostbe

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 567
27 958
271 741
377
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies