Search:

Try this...


Private Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim pageImage As New Metafile(m_streams(m_currentPageIndex))

' Adjust rectangular area with...

You are aware there's a PrintPreviewDialog in VB? Is that what you're trying to restrict?

On which line?

Or you could do it without a loop, as I showed you in post #18

I agree…’

You need to set the appropriate Properties
If you don't want the user to be able maximize, set the MaximiseBox to False
If you don't want to allow resizable (except Minimize to Taskbar), set your...

Before the scan, use...


TextBox1.Select

You could just set your window’s minimumsize and maximumsize or formborderstyle and maximizebox if you don’t want it resizable…

Private Sub Print()
If m_streams Is Nothing OrElse m_streams.Count = 0 Then
Throw New Exception("Error: no stream to print.")
End If
AddHandler printdoc.PrintPage, AddressOf...

No. See my code in post #14
It’s more complicated as your printing spans over more than one page. You can print more copies by setting your page range counter back to 0 and then setting hasmorepages...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintDocument1.PrinterSettings.Copies = 2
PrintDocument1.Print
End Sub
...

Can you show me your PrintPage code? You need to implement a loop to print your number of copies... You'd set PrinterSettings.Copies = 2, then run PrintPage twice.

Edit: or any number in...

I found this…

https://stackoverflow.com/questions/1485155/check-if-a-file-is-real-or-a-symbolic-link

This might help...

https://www.w3computing.com/vb2008/driveinfo-directoryinfo-fileinfo-classes/

You could use the SystemInformation Class...

SystemInformation.VerticalScrollBarWidth

If you just want to draw a border, I wouldn’t be extending the ListBox. Google ControlPaint.DrawBorder. You’d draw the border in the parent Form’s Paint EventHandler…

Ok. This page from Microsoft explains how…

https://docs.microsoft.com/en-us/previous-versions/ms252091(v=vs.140)?redirectedfrom=MSDN

'original line and could be the place to ammend the code to print colour cells
if oCell.Value.ToString = "something" Then
e.Graphics.FillRectangle 'etc paint a color
ElseIf...

To query it, show me the code where you print the cell value. Not a huge block of code, just a line or two

Easiest way is to print backcolors for all cells (of type DataGridViewTextBoxCell) without querying anything. The plain white cells will appear the same on the printed page, and it'll print your...

Try this...


With PrintPreview114.ReportViewer114
.PrinterSettings.PrinterName = "\\GVL02\114 Label Printer (Assembly)" 'Intermec Printer PM4i
temstr = .PrinterSettings.PrinterName
...

Assuming you want What You See Is What You Get printing, something like this…
I know this is the columnheader code, but the cell, uses similar code.


e.Graphics.FillRectangle(New SolidBrush(your...

The DataGridViewCell has a Style.BackColor property

So there is no Print command instead of PrintPreview114.Show?

With PrintPreview114??? Ok I get it now. What other properties does Your reportviewer have?

You need to show the code that opens the PrintPreviewDialog. It’s probably a simple fix…

You wouldn’t put the code in TextBox1_TextChanged… Use your Form1_Load event handler, for a static date and time. If you want the time to update in real time, use a Timer…


Public Class Form1
...

A Form that is completely translucent, allowing click-thru, but also visible? That’s not so easy… :D

I’ve done something like this before with the SetParent API using the desktop Handle - which is 0


Declare Function SetParent Lib "user32" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As...

g/
See how to use an openfiledialog... http://www.scproject.biz/Using%20Dialogs.php
For entering real decimal numbers, use a NumericUpDown control instead of a TextBox. For Account numbers that...

For the first, remove the lines = part from the start of the line
For the second error, replace…

TextBox4.Text + " | " + (x + (1 + Previous)) + " | " + titles(x)

With…

TextBox4.Text & " | "...

To work with a subset of titles…

Dim subset() As String = titles.Where(Function(t) t.StartsWith(“show name”).ToArray

This is how you can write the first Button's code more efficiently. The second does something different...


Dim lines As List(Of String) =...

Why ask a Python question in a VB.Net forum?

Try escaping the apostrophe...


dim variable as string = "En tant qu\'invité"

Or...


dim variable as string = "En tant qu\\'invité"

You do know sendkeys will only send keys to the active window? If you’re attempting to send keys to two apps, you’d have to switch focus between the apps. Google AppActivate

I don’t think it will work… but. Try…


Sendkeys.Send(Chr(30))

Have a look at this…

https://stackoverflow.com/questions/35124282/how-to-use-sendkeys-as-pause-break

That's the reason i use the (Tangible Software) Instant C# tool. My VB is much stronger than my C# abilities, and the converter does a fairly accurate job usually.

Try this...


Dim ImageCount As Integer
Public fileEntries As String()
Public filepath As String = "J:/"
Dim sPictures As New List(Of Bitmap)
Dim extensions As String =...