Tabla de contenido
Imprimir Descripción
Escribe datos con formato de pantalla en un archivo secuencial.
Sintaxis de impresión
| 1 | Impresión #FileNumber, [OutputList] |
La declaración Print contiene 2 argumentos:
Número de expediente: Cualquier número de archivo válido.
Lista de salida: Opcional. Una o más expresiones numéricas delimitadas por comas o expresiones de cadena para escribir en un archivo.
Ejemplos de la función de impresión de Excel VBA
| Primer nombre | Apellido | La edad | Género |
| Robert | Stepp | 20 | Masculino |
| Jennifer | Mariscal | 33 | Mujer |
| David | Romig | 35 | Masculino |
| Carmelo | Ingram | 26 | Mujer |
Para generar Rango (“A1: D5”) en una hoja como la imagen de arriba en un archivo, puede usar el siguiente código.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder como cadenaDim strFile como cadenaDim dlgFolder como FileDialogAtenuar como rangoEstablecer dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Si dlgFolder.Show = True EntoncesstrFolder = dlgFolder.SelectedItems (1)DemásSalir de SubTerminara siEstablecer rng = Rango ("A1: D5")'ImpresiónstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEnd SubSub PrintRangeToFile (strFile como cadena, rng como rango)Atenuar fila como rango, celda como rangoDim FileNumber como enteroFileNumber = FreeFileAbra strFile para la salida como #FileNumberPara cada fila en filas de filasPara cada celda de la fila.Si cell.Column = row.Cells.Count EntoncesImprimir #FileNumber, celdaDemásImprimir #FileNumber, celda,Terminara siSiguiente celdaFila siguienteCerrar #FileNumberEnd Sub |
La salida al archivo "Print_Output.txt":
| 12345 | Nombre Apellido Edad SexoRobert Stepp 20 HombreJennifer Mariscal 33 MujerDavid Romig 35 HombreCarmel Ingram 26 Mujer |
