DRAWSTRING LIST

JABA 20/08/2015 23:02:32
#450297 Resposta escolhida

Imports System
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports System.Drawing.Imaging

Public Class Form1

Dim pos As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label2.Text = 1
Dim i As Integer = 0
Dim X As Integer = 0
Dim Y As Integer = 0
For i = i To 87
ListView1.Items.Add([Ô]Cliente [Ô] & i)
ListView1.Items(i).SubItems.Add([Ô]Produto [Ô] & i)
If X = 9 Then
Y += 1
X = 0
Else
X += 1
End If
Next
Label1.Text = [Ô]1/[Ô] & Convert.ToString(Y)

[ô]ListarUsuarios(ListView1)

Call ImprimirItens(0, ListView1.Items.Count / 8, PictureBox2)
pos = ListView1.Items.Count / 8
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim X As Integer = 0
Dim Y As Integer = 0
For i2 As Integer = 0 To ListView1.Items.Count
If X = 9 Then
Y += 1
X = 0
Else
X += 1
End If
Next

pos = pos + ListView1.Items.Count / 8
ImprimirItens(pos, ListView1.Items.Count / 8, PictureBox2)

If Label2.Text = Y Then
MsgBox([Ô]Ultima Pagina[Ô])
Else
Label2.Text += 1
End If
Label1.Text = Label2.Text & [Ô]/[Ô] & Convert.ToString(Y)

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim X As Integer = 0
Dim Y As Integer = 0
For i2 As Integer = 0 To ListView1.Items.Count
If X = 9 Then
Y += 1
X = 0
Else
X += 1
End If
Next

pos = pos - ListView1.Items.Count / 8
ImprimirItens(pos, ListView1.Items.Count / 8, PictureBox2)

If Label2.Text = 1 Then
MsgBox([Ô]Primeira Pagina[Ô])
Else
Label2.Text -= 1
End If
Label1.Text = Label2.Text & [Ô]/[Ô] & Convert.ToString(Y)
End Sub

Public Sub ImprimirItens(posicaoInicial As Integer, quantidadeItensPortela As Integer, controle As PictureBox)

Dim i As Integer = 0
Dim Linha As Pen = New Pen(Color.Black, 1)
Dim TmpSize As System.Drawing.Size

Dim pic As New PictureBox
pic.Load([Ô]C:\Users\Rodrigo\Desktop\Impressao Relatório\Impressao Relatório\Impressao Relatório\bin\Debug\Relatorio\Relatorio.bmp[Ô])

Dim imagem As Image = pic.Image

[ô]Lê as dimensões da Imagem
TmpSize.Height = imagem.Height
TmpSize.Width = imagem.Width

Dim local As Integer = imagem.Width / 2 - 50
Dim Fonte = New Font([Ô]Arial[Ô], 9, FontStyle.Bold)

[ô]Cria um novo Objeto Imagem
Dim NewBitmap As New System.Drawing.Bitmap(imagem, TmpSize)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(NewBitmap)
g.DrawLine(Linha, 60, 110, 700, 110)
g.DrawLine(Linha, 60, 1000, 700, 1000)

g.DrawImage(Image.FromFile(Application.StartupPath & [Ô]\Logo\Logo.jpg[Ô]), local, 20)
g.DrawString(Label2.Text, Fonte, Brushes.Black, New Point(400, 1010))

Dim c As Integer = 0
For i = posicaoInicial + 1 To ListView1.Items.Count - 1
c = c + 1
If i <= posicaoInicial + quantidadeItensPortela Then
Dim s1 = ListView1.Items(i).SubItems(0).Text
Dim s2 = ListView1.Items(i).SubItems(1).Text
Dim f4 = New Font([Ô]Arial[Ô], 9, FontStyle.Bold)
g.DrawString(s1, f4, Brushes.Black, New Point(38, 200 + c * 20))
g.DrawString(s2, f4, Brushes.Black, New Point(150, 200 + c * 20))
End If
Next

[ô]Salva a Imagem
NewBitmap.Save(Application.StartupPath & [Ô]\Relatorio\Relatorio-gerado.jpeg[Ô], Imaging.ImageFormat.Jpeg)

controle.ImageLocation = Application.StartupPath & [Ô]\Relatorio\Relatorio-gerado.jpeg[Ô]
g.Dispose()
NewBitmap.Dispose()
pic.Dispose()

End Sub

End Class

KURTGU 20/08/2015 23:03:58
#450298

Muito Obrigada Jaba pela ajuda a Mim e a todos os outros aqui do forum, sempre tem um ou outro Pra encher mais Vlw mesmo pela ajuda [txt-color=#e80000]INBOX[/txt-color].

[txt-color=#e80000]OSMAR AGORA VOCE JA PODE DEITAR E DORMIR...[/txt-color]