Pasa que no estás controlando la cantidad de líneas impresas para luego comprobarlo. Ya que en listarcolumnas imprimes las líneas, ahí deberías hacer la comprobación, y mejor si usas otra variable porque i ya se está utilizando para otras cosas

Por ejemplo usaré lineas y resaltaré la parte que he agregado a tu código:

Private Sub listarcolumnas()
  Dim AnchoPapel As Integer
  Dim MargenIzquierdo As Integer
  Dim numCols As Integer
  Dim filas As Long
  Dim ultimafila As Long
  Dim k As Long, j As Long, i As Integer, n As Integer, anchocol As Integer
  Dim linea As String
  Dim margen As Integer
  Dim fuente As StdFont
  Set fuente = Printer.Font
  numCols = 9
  Printer.FontName = "Courier New"  ' una fuente monoespaciada, si no el trabajo es más laborioso...
  filas = ((List1.ListCount + 1) \ numCols)
  ultimafila = ((List1.ListCount + 1) Mod numCols) ' columnas que tendrá la última fila.
  anchocol = ((AnchoPapel - MargenIzquierdo) \ numCols)
 
  For k = 0 To filas - 1
      n = margen
      For i = 0 To numCols - 1
          Printer.CurrentX = n  ' imprime el texto de la columna 'i'
          Printer.Print List1.List(j + i)
          n = (n + anchocol)
      Next
      j = (j + numCols)
      Printer.CurrentY = (Printer.CurrentY + Printer.TextHeight("t"))  ' el textheight depende de la fuente seleccionada en la impresora, no importa el texto entre paréntesis... es fijo para la  fuente.
 
      lineas = lineas + 9 'Arriba se imprimieron 9 líneas
      If lineas > 24 Then
        Printer.NewPage
        encabezado
        lineas = 0
      End If
  Next
 
  If (ultimafila > 0) Then ' la última fila tiene 1 o más columnas, pero menos que 'numcols'.
      n = margen
      For i = 0 To ultimafila - 1
          Printer.CurrentX = n  ' imprime el texto de la columna 'i'
          Printer.Print List1.List(j + i)
          n = (n + anchocol)
      Next
  End If
 
  Set Printer.Font = fuente
End Sub

---
No es normal trabajar con coordenadas (x, y) para estos trabajos de impresión ya que requieren de buenos cálculos matemáticos y/o trabajar con prueba y error. Las coordenadas se usan más cuando el tipo y tamaño de fuente varían en la hoja a imprimir, se van a agregar elementos gráficos y se requiere moverse por toda la hoja para imprimir en diferentes lugares en cualquier orden.

- Pero si se va a trabajar con un tamaño de fuente determinado y que además es monoespaciada, es mejor crear una plantilla en un editor de texto plano como Notepad++ o similar, luego se facilita mucho la impresión de líneas usando Format y demás opciones que hay para formatear, alinear y distribuir el texto de acuerdo a la plantilla, por ejemplo esta plantilla para una hoja A4, y fuente Consolas de tamaño 10:


- El objetivo de esta plantilla es reconocer los tamaños y espaciados requeridos para el trabajo de impresión, luego con esto es más fácil usar Print porque ya se conocen estos detalles
- Ahí dejé libre la primera fila y las dos primeras columnas como margen
- Le puse barritas | como separador para que sea más legible pero se pueden quitar si molestan y de paso ganar más espacio

Para imprimir es fácil porque me basta con escribir tal cual las líneas o datos que no varían y formatear con la cantidad de caracteres correcta para los que si varían, todo dependerá de la plantilla. Acá dejo un ejemplo por si lo quieres probar, si no entiendes algo dale click a esa instrucción y presiona F1 para que te muestra a ayuda de VB, sino siempre puedes preguntar por acá.

Const n = 200 'Generaré 200 registros aleatorios para el ejemplo
Dim c1(n), c2(n), c3(n), c4(n), c5(n), c6(n), c7(n), c8(n), c9(n) As String
 
Private Sub Form_Load()
  GenerarDatos 'Genera datos aleatorios para las columnas
 
  Printer.Font.Name = "Consolas"
  Printer.Font.Size = 10
 
  Encabezado
  ListarColumnas
 
  Printer.EndDoc
End Sub
 
Sub Encabezado()
  Printer.FontBold = True
  Printer.Print 'Imprime una línea vacía
  Printer.Print "  HORA: "; Time; Spc(27); "LISTADO DE ALMACEN"; Spc(27); "FECHA: "; Date
  Printer.Print "  "; String(104, "=")
  Printer.Print "  Código | Stock | Artículo"; Spc(19); "| Precio | Impuesto | Uds.Caja | Umbral | Pedido | En Oferta"
  Printer.Print "  "; String(104, "-")
  Printer.FontBold = False
End Sub
 
Sub ListarColumnas()
  lineas = 0
  For i = 0 To n
    Printer.Print "  "; c1(i);
    Printer.Print " | "; Format(c2(i), "@@@@@");
    Printer.Print " | "; Format(c3(i), "!@@@@@@@@@@@@@@@@@@@@@@@@@@");
    Printer.Print " | "; Format(c4(i), "@@@@@@");
    Printer.Print " | "; Format(c5(i), "@@@@@@@@");
    Printer.Print " | "; Format(c6(i), "@@@@@@@@");
    Printer.Print " | "; Format(c7(i), "@@@@@@");
    Printer.Print " | "; Format(c8(i), "@@@@@@");
    Printer.Print " | "; Format(c9(i), "@@@@@@@@@")
    lineas = lineas + 1 'Arriba se imprimió 1 línea
 
    If lineas > 64 Then
      Printer.NewPage
      Encabezado
      lineas = 0
    End If
  Next
End Sub
 
Sub GenerarDatos()
  For i = 0 To n
    c1(i) = (Format(i, "A00000"))
    c2(i) = Int((10000 * Rnd))
    c3(i) = String(25 * Rnd + 1, "x")
    c4(i) = Format(998 * Rnd + 1, "0.00")
    c5(i) = 0.18
    c6(i) = Int((1000 * Rnd))
    c7(i) = Int((1000 * Rnd))
    c8(i) = Int((1000 * Rnd))
    c9(i) = Int((1000 * Rnd))
  Next
End Sub

El resultado es:
https://mega.nz/file/spwmUZxI#qa8RkqNKuR_hxj3LyfIhnPBSxkcQyggQnEfEZjWthAY

Acá dejo el Proyecto por si lo quieres descargar:
https://mega.nz/folder/wpx0hJQJ#TUpjfKk3hEqtKilP4fcE3g

No sé si entendí bien eso XD, obviamente los programas de uso masivo como los navegadores web deber actualizarse conforma avanza la tecnología y la complejidad de los sitios web. Los anuncios también se actualizan continuamente porque ganan dinero mostrando dichos anuncios y siempre intentaran evadir o detectar a los bloqueadores de anuncios, pero hoy en día la cantidad de anuncios es absurda así que veo obligatorio usar un bloqueador de anuncios como uBlock Origin o similar tanto como el antivirus.

- Este video promocional de AdBlock es genial XD https://player.vimeo.com/video/145167993

Si los anuncios se actualizan, también deben actualizarse los bloqueadores de anuncios ya que estos siempre deberían de estar un paso por delante para evitar ser detectados y detectar la mayoría de anuncios, esos se actualizan como los antivirus para detectar nuevos virus

No sé si entiendo bien tu pregunta, haber, supongo que te refieres a las rutas relativas y pues es lo mismo que en "D.O.S.", si estás en la carpeta C:\Users y ahí encuentras rutas que dicen: Pepito\Documentos entonces la ruta completa es C:\Users\Pepito\Documentos

Lo mismo en los enlaces Web, si estás en www.example.com y ves rutas que dicen img/flores.jpg significa que la ruta completa es  www.example.com/img/flores.jpg, hay que tener cuidado con la / al inicio de una ruta porque puede malinterpretarse dependiendo del sistema operativo o servidor web, ya que podrían indicar la raíz del sistema o sitio

De todas maneras siempre puedes inspeccionar elementos con las Herramientas de Desarrollador que traen todos los navegadores Web como Chrome, Firefox, etc y ver los recursos, como se cargan, de donde vienen, etc, etc

En conclusión, en rutas relativas (./img/flores.jpg o img/flores.jpg) la ruta completa la obtienes a partir de la ruta actual (donde estás viendo las rutas relativas que funcionan), si no sabes la ruta actual o la ruta relativa no se resuelve porque la ruta actual es la incorrecta no puedes adivinar la ruta correcta salvo que examines el contexto y trates de corregir las rutas. (Por cierto el . que puse delante de / implica: "acá mismo", esto para evitar que se malinterprete con la carpeta raíz en Linux o del servidor)

Va ha depender de que versión de ActionScript y Flash vayas a usar, todas las versiones de Flash tienen un menú de ayuda con ejemplos interactivos donde puedes iniciarte con lo más básico, luego ya toca buscar libros, cursos o videos para la versión que vas a usar, ahora nada soporta flash así que no importa tanto la versión más que para seguir el libro/curso, igual puedes embeber el reproductor con el swf para que funcione en todo lado.

Por ejemplo para ActionScript 2.0 y 3.0 hay bastante material. Tachikomaia utiliza Flash 5 + ActionScript 1.0, pero a mi no me gusta porque no tiene una depuración de verdad (puntos de interrupción y ejecución línea a línea para comprobar en todo momento que sucede), como mínimo sugeriría Macromedia Flash MX 2004 con el que se puede si quieres trabajar en ActionScript 2.0, y como mínimo Adobe Flash CS6 para trabajar con ActionScript 3.0 y exportar a HTML, todo esto hablando de versiones viejas, sino ir a por mínimo Adobe Flash CC 2015 o cualquier otro más moderno.

El propio Adobe ofrece libros de cientos de páginas sobre el uso de Flash y ActionScript pero dependerá de la versión que vayas a usar, lo mismo para crear juegos hay librerías/bibliotecas que igualmente dependen de la versión que quieras

Bueno, si en mi viejo Visual Studio 2008 Express con .Net 3.5 funciona, no veo porque no en tu .Net 8 XD

Uff vaya, en mi caso pasaba exactamente lo mismo, como que tenía que "calentar" el monitor para que se estabilice y no ande parpadeando la primera vez que se encendía. Lo desarmé y vi que tenía un capacitor hinchado, lo cambié y funcionó unos años más sin problemas, luego aparecieron 3 rayas de colores verticales y ya por su edad lo reemplacé.

Pues sí, uBlock Origin no será tan bonito pero su trabajo lo hace muy bien además de ser ligero.

La Última versión de Chrome compatible con Windows 7 y 8 es la 109.0.5414.168, uBlock Origin 1.58.0.0 que es la última versión a día de hoy 2024-07-13 funciona sin problemas

Algo que puede molestar en Chrome 109 o anteriores es que aparecerá el mensaje:



- Para desactivar ese mensaje hay que abrir una CMD como Administrador y ejecutar:


- Y para los que quieran el tema obscuro como muestra mi imagen, basta con ejecutar:


---
En mi Windows 8.0 instalé la versión 109.0.5414.120 pero se me actualizó a la 109.0.5414.168 que es la última: https://support.google.com/chrome/thread/253675870/latest-versions-on-109-series-of-google-chrome-is-not-available-in-the-chrome-release-notes-page

Google Chrome 109.0.5414.168 32-bit:
https://dl.google.com/release2/chrome/p5iizujxrjjggjfl7d4kvj5e5i_109.0.5414.168/109.0.5414.168_chrome_installer.exe

Google Chrome 109.0.5414.168 64-bit:
https://dl.google.com/release2/chrome/nvwf3mhcdg76ot6qwp75ovmh2u_109.0.5414.168/109.0.5414.168_chrome_installer.exe

Tienes algún ejemplo?

Lo más fácil siempre es abrir la página y darle Ctrl + S para guardarlo. wget tiene muchas opciones pero abría que ver como es la página para saber cuales usar, podrías necesitar credenciales, cookies, user-agent, referer, no-robots, etc, etc, etc

Si no quieres estar instalando y configurando los componentes de flash para que funcionen en Chrome te recomiendo usar la vieja versión de Google Chrome 49.0.2623.112 que es la última compatible con Windows XP y además trae Flash embebido, y por supuesto que funciona en Windows 7, 8, 10 y 11, con él deberías de poder abrir cualquier página antigua que contenga flash o abrir archivos de tu PC .swf, todo sin hacer preguntas raras, directamente los abre sin problemas.

- Como es una versión tan antigua dudo que te sirva para navegar en páginas modernas, además de lo inseguro que debe ser, por eso te recomiendo una versión portable que solo lo uses para hacer tus pruebas, además no interfiere para nada con otro Chrome que tengas instalado, funciona totalmente separado y bajo control.

Google Chrome 49.0.2623.112 32-bit Portable:
https://mega.nz/file/NgpDwYJA#dDuut8p6eHcZ42FhGpGIYz4QtMel0AYZT6b2AsD2bAs

- Descarga, descomprime y únicamente dale doble click a "Chrome Portable.cmd", esto iniciará un Chrome independiente que nada tendrá que ver con algún Chrome que ya tengas instalado y funcionando, son completamente independientes siempre y cuando el portable lo inicies desde "Chrome Portable.cmd". Para restablecer tu Chrome portable (dejarlo nuevito) tan solo debes eliminar la carpeta "portable" que está dentro de la carpeta "49.0.2623.112", o volver a descargar y/o descomprimir el archivo .7z

Si está disponible, primero debes abrir flashplayer11_2r202_235_win_sa_32bit.exe y luego en él tienes que abrir (o arrastrar y soltar) tu archivo .swf, solo entonces aparecerá la opción de Crear proyector. PERO como mencioné antes también depende del .swf, algunos te ocultan la barra de menú y no puedes ir a Archivo > Crear proyector

Crear Proyector con un .swf que no oculta la barra de tareas:



Si tu .swf oculta la barra de menús se verá así:



- En este caso como no puedes acceder al menú de crear proyector tienes otras opción, la más sencilla sería usar la herramienta "Create Projector (Windows).swf" que mencioné en mi mensaje anterior. También puedes editar el .swf para habilitar de nuevo el menú usando la herramienta JPXS Free Flash Decompiler