Partial Class Form18 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Private Sub InitializeComponent() Dim resources As ComponentModel.ComponentResourceManager = New ComponentModel.ComponentResourceManager(GetType(Form18)) Label1 = New Label() ScanCP = New TextBox() DataGridView1 = New DataGridView() Label2 = New Label() Label3 = New Label() BTPRINT = New Button() Label4 = New Label() ComboBox1 = New ComboBox() PrintDialog1 = New PrintDialog() PrintPreviewDialog1 = New PrintPreviewDialog() Label5 = New Label() Label6 = New Label() PictureBox1 = New PictureBox() PictureBox2 = New PictureBox() Button1 = New Button() Button2 = New Button() Label7 = New Label() Label8 = New Label() CType(DataGridView1, ComponentModel.ISupportInitialize).BeginInit() CType(PictureBox1, ComponentModel.ISupportInitialize).BeginInit() CType(PictureBox2, ComponentModel.ISupportInitialize).BeginInit() SuspendLayout() ' ' Label1 ' Label1.AutoSize = True Label1.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point) Label1.Location = New Point(27, 80) Label1.Name = "Label1" Label1.Size = New Size(160, 25) Label1.TabIndex = 0 Label1.Text = "Comanda Si linia" Label1.TextAlign = ContentAlignment.MiddleCenter ' ' ScanCP ' ScanCP.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point) ScanCP.Location = New Point(193, 77) ScanCP.MaxLength = 10 ScanCP.Name = "ScanCP" ScanCP.Size = New Size(275, 33) ScanCP.TabIndex = 1 ' ' DataGridView1 ' DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize DataGridView1.Location = New Point(12, 126) DataGridView1.Name = "DataGridView1" DataGridView1.RowTemplate.Height = 25 DataGridView1.Size = New Size(1341, 282) DataGridView1.TabIndex = 2 ' ' Label2 ' Label2.AutoSize = True Label2.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point) Label2.Location = New Point(830, 80) Label2.Name = "Label2" Label2.Size = New Size(218, 25) Label2.TabIndex = 3 Label2.Text = "Comanda si linia Client:" Label2.TextAlign = ContentAlignment.MiddleCenter ' ' Label3 ' Label3.AutoSize = True Label3.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point) Label3.Location = New Point(1054, 80) Label3.Name = "Label3" Label3.Size = New Size(17, 25) Label3.TabIndex = 4 Label3.Text = ":" Label3.TextAlign = ContentAlignment.MiddleCenter ' ' BTPRINT ' BTPRINT.BackColor = Color.FromArgb(CByte(192), CByte(255), CByte(255)) BTPRINT.Font = New Font("Segoe UI Black", 18F, FontStyle.Bold, GraphicsUnit.Point) BTPRINT.Location = New Point(12, 438) BTPRINT.Name = "BTPRINT" BTPRINT.Size = New Size(324, 86) BTPRINT.TabIndex = 5 BTPRINT.Text = "Print" BTPRINT.UseVisualStyleBackColor = False ' ' Label4 ' Label4.AutoSize = True Label4.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point) Label4.Location = New Point(27, 24) Label4.Name = "Label4" Label4.Size = New Size(176, 25) Label4.TabIndex = 6 Label4.Text = "Alege Imprimanta " ' ' ComboBox1 ' ComboBox1.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point) ComboBox1.FormattingEnabled = True ComboBox1.Location = New Point(209, 16) ComboBox1.Name = "ComboBox1" ComboBox1.Size = New Size(259, 33) ComboBox1.TabIndex = 7 ' ' PrintDialog1 ' PrintDialog1.UseEXDialog = True ' ' PrintPreviewDialog1 ' PrintPreviewDialog1.AutoScrollMargin = New Size(0, 0) PrintPreviewDialog1.AutoScrollMinSize = New Size(0, 0) PrintPreviewDialog1.ClientSize = New Size(400, 300) PrintPreviewDialog1.Enabled = True PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), Icon) PrintPreviewDialog1.Name = "PrintPreviewDialog1" PrintPreviewDialog1.Visible = False ' ' Label5 ' Label5.AutoSize = True Label5.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point) Label5.Location = New Point(1242, 77) Label5.Name = "Label5" Label5.Size = New Size(126, 25) Label5.TabIndex = 8 Label5.Text = "Cantitate CP:" Label5.TextAlign = ContentAlignment.MiddleCenter ' ' Label6 ' Label6.AutoSize = True Label6.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point) Label6.Location = New Point(1374, 77) Label6.Name = "Label6" Label6.Size = New Size(17, 25) Label6.TabIndex = 9 Label6.Tag = "" Label6.Text = ":" Label6.TextAlign = ContentAlignment.MiddleCenter ' ' PictureBox1 ' PictureBox1.Location = New Point(1378, 251) PictureBox1.Name = "PictureBox1" PictureBox1.Size = New Size(100, 300) PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage PictureBox1.TabIndex = 12 PictureBox1.TabStop = False ' ' PictureBox2 ' PictureBox2.Location = New Point(1053, 438) PictureBox2.Name = "PictureBox2" PictureBox2.Size = New Size(300, 100) PictureBox2.SizeMode = PictureBoxSizeMode.Zoom PictureBox2.TabIndex = 13 PictureBox2.TabStop = False ' ' Button1 ' Button1.BackColor = Color.Red Button1.Font = New Font("Segoe UI Black", 18F, FontStyle.Bold, GraphicsUnit.Point) Button1.ForeColor = SystemColors.ControlLightLight Button1.Location = New Point(376, 438) Button1.Name = "Button1" Button1.Size = New Size(324, 86) Button1.TabIndex = 14 Button1.Text = "Inchide printul" Button1.UseVisualStyleBackColor = False ' ' Button2 ' Button2.BackColor = Color.FromArgb(CByte(128), CByte(255), CByte(128)) Button2.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point) Button2.Location = New Point(523, 75) Button2.Name = "Button2" Button2.Size = New Size(186, 38) Button2.TabIndex = 15 Button2.Text = "Verifica baza de date" Button2.UseVisualStyleBackColor = False ' ' Label7 ' Label7.AutoSize = True Label7.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point) Label7.Location = New Point(875, 16) Label7.Name = "Label7" Label7.Size = New Size(0, 21) Label7.TabIndex = 16 ' ' Label8 ' Label8.AutoSize = True Label8.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point) Label8.Location = New Point(813, 16) Label8.Name = "Label8" Label8.Size = New Size(55, 21) Label8.TabIndex = 17 Label8.Text = "Client" ' ' Form18 ' AutoScaleDimensions = New SizeF(7F, 15F) AutoScaleMode = AutoScaleMode.Font BackColor = Color.FromArgb(CByte(192), CByte(192), CByte(255)) ClientSize = New Size(1490, 553) ControlBox = False Controls.Add(Label8) Controls.Add(Label7) Controls.Add(Button2) Controls.Add(Button1) Controls.Add(PictureBox2) Controls.Add(PictureBox1) Controls.Add(Label6) Controls.Add(Label5) Controls.Add(ComboBox1) Controls.Add(Label4) Controls.Add(BTPRINT) Controls.Add(Label3) Controls.Add(Label2) Controls.Add(DataGridView1) Controls.Add(ScanCP) Controls.Add(Label1) Name = "Form18" Text = "Print Etichete" CType(DataGridView1, ComponentModel.ISupportInitialize).EndInit() CType(PictureBox1, ComponentModel.ISupportInitialize).EndInit() CType(PictureBox2, ComponentModel.ISupportInitialize).EndInit() ResumeLayout(False) PerformLayout() End Sub Friend WithEvents Label1 As Label Friend WithEvents ScanCP As TextBox Friend WithEvents DataGridView1 As DataGridView Friend WithEvents Label2 As Label Friend WithEvents Label3 As Label Friend WithEvents BTPRINT As Button Friend WithEvents Label4 As Label Friend WithEvents ComboBox1 As ComboBox Friend WithEvents PrintDialog1 As PrintDialog Friend WithEvents PrintPreviewDialog1 As PrintPreviewDialog Friend WithEvents Label5 As Label Friend WithEvents Label6 As Label Friend WithEvents PictureBox1 As PictureBox Friend WithEvents PictureBox2 As PictureBox Friend WithEvents Button1 As Button Friend WithEvents Button2 As Button Friend WithEvents Label7 As Label Friend WithEvents Label8 As Label End Class