Actualizado el 26 de Abril del 2025 por Rafael (25 códigos) (Publicado el 18 de Julio del 2024)
10.061 visualizaciones desde el 18 de Julio del 2024
app contable para redes inalámbricas y pantallas táctiles.
Requerimientos
App contable para redes inalámbricas y pantallas táctiles. Sistema operativo Windows. Requiere WinRar y leer guía del usuario. No necesita bases de datos. No requiere Internet.
' cb.SetTextMatrix(0, 685)
' cb.ShowText("_____________________________________________________________________________________________________________")
' Dim x = 40
' Dim y = 500
' cb.SetTextMatrix(x, y)
'cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, Convert.ToString(Rows[i].cells[10].value)
'Dim datatable As New PdfPTable(DataGridView1.ColumnCount)
' document.Close()
' Process.Start(xRuta)
'Catch ex As Exception
' ' MessageBox.Show("Error en la Generación del Documento", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'End Try
'************* GENERAR INFORME PDF ******************
'' Intentar generar el documento.
'Dim doc As New iTextSharp.text.Document(PageSize.A4, 10, 10, 10, 10)
'' Path que guarda el reporte en el escritorio de windows (Desktop).
'Dim FileName As String = "c:\Administracion\factura.pdf"
'If System.IO.File.Exists(FileName) = True Then
' My.Computer.FileSystem.DeleteFile("c:\Administracion\factura.pdf")
'End If
''Dim filename As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + "\Listado de Clientes.pdf"
'Dim file As New FileStream(FileName, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)
'PdfWriter.GetInstance(doc, file)
'doc.Open()
''ExportarDatosPDF(doc)
'doc.Close()
'Process.Start(FileName)